CMUCL commit: amd64-dd-branch src/code (seq.lisp)

Raymond Toy rtoy at common-lisp.net
Tue Nov 3 03:42:36 CET 2009


    Date: Monday, November 2, 2009 @ 21:42:36
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/code
     Tag: amd64-dd-branch

Modified: seq.lisp

Hack to get this to run because kernel:index is still a 32-bit fixnum
instead of the 64-bit fixnum we want.


----------+
 seq.lisp |   10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)


Index: src/code/seq.lisp
diff -u src/code/seq.lisp:1.55 src/code/seq.lisp:1.55.8.1
--- src/code/seq.lisp:1.55	Thu Jul  2 17:00:48 2009
+++ src/code/seq.lisp	Mon Nov  2 21:42:36 2009
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /project/cmucl/cvsroot/src/code/seq.lisp,v 1.55 2009-07-02 21:00:48 rtoy Rel $")
+  "$Header: /project/cmucl/cvsroot/src/code/seq.lisp,v 1.55.8.1 2009-11-03 02:42:36 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -697,7 +697,7 @@
   (declare (list sequences))
   (let ((min-length (1- most-positive-fixnum))
 	(args (make-list (length sequences))))
-    (declare (type index min-length))
+    (declare (type #-amd64 index #+amd64 (integer 0 #.most-positive-fixnum) min-length))
     (dolist (seq sequences)
       (when (vectorp seq)
 	(let ((length (length seq)))
@@ -723,7 +723,7 @@
   (declare (list sequences))
   (let ((min-length (1- most-positive-fixnum))
 	(args (make-list (length sequences))))
-    (declare (type index min-length))
+    (declare (type #-amd64 index #+amd64 (integer 0 #.most-positive-fixnum) min-length))
     (dolist (seq sequences)
       (when (vectorp seq)
 	(let ((length (length seq)))
@@ -753,7 +753,7 @@
 	   (declare (list sequences))
 	   (let ((min-length (1- most-positive-fixnum))
 		 (lists nil))
-	     (declare (type index min-length))
+	     (declare (type #-amd64 index #+amd64 (integer 0 #.most-positive-fixnum) min-length))
 	     (dolist (seq sequences)
 	       (etypecase seq
 		 (list
@@ -848,7 +848,7 @@
      (let* ((sequences (cons first-sequence more-sequences))
 	    (min-length (1- most-positive-fixnum))
 	    (args (make-list (length sequences))))
-       (declare (type index min-length))
+       (declare (type #-amd64 index #+amd64 (integer 0 #.most-positive-fixnum) min-length))
        (dolist (seq sequences)
 	 (check-type seq sequence)
 	 (when (vectorp seq)



More information about the cmucl-commit mailing list