1 Jul 2003 07:23
CVS: sbcl/src/compiler fndb.lisp,1.73,1.74
Alexey Dejneka <adejneka <at> users.sourceforge.net>
2003-07-01 05:23:08 GMT
2003-07-01 05:23:08 GMT
Update of /cvsroot/sbcl/sbcl/src/compiler
In directory sc8-pr-cvs1:/tmp/cvs-serv13869/src/compiler
Modified Files:
fndb.lisp
Log Message:
0.8.1.13:
* Index argument of LAST and [N]BUTLAST may be a bignum (from
Paul Dietz' test suite).
Index: fndb.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/fndb.lisp,v
retrieving revision 1.73
retrieving revision 1.74
diff -u -d -r1.73 -r1.74
--- fndb.lisp 30 Jun 2003 07:06:48 -0000 1.73
+++ fndb.lisp 1 Jul 2003 05:23:06 -0000 1.74
<at> <at> -686,7 +686,7 <at> <at>
(defknown list-length (list) (or index null) (foldable unsafely-flushable))
(defknown nth (unsigned-byte list) t (foldable flushable))
(defknown nthcdr (unsigned-byte list) t (foldable unsafely-flushable))
-(defknown last (list &optional index) t (foldable flushable))
+(defknown last (list &optional unsigned-byte) t (foldable flushable))
(defknown list (&rest t) list (movable flushable unsafe))
(defknown list* (t &rest t) t (movable flushable unsafe))
(defknown make-list (index &key (:initial-element t)) list
<at> <at> -707,8 +707,8 <at> <at>
(defknown nconc (&rest t) t ())
(Continue reading)
RSS Feed