X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Farray-tran.lisp;h=fbc4a06a830cd28e9ed3a9d60f94c17e03d16661;hb=91392754bf1d241cd6913c728268caf18eae1485;hp=b71f70d86f343582e40045e5ffee2d085ebc1e73;hpb=dea9bd5c1afe23d9e061c60db654b88187ba9a5e;p=sbcl.git

diff --git a/src/compiler/array-tran.lisp b/src/compiler/array-tran.lisp
index b71f70d..fbc4a06 100644
--- a/src/compiler/array-tran.lisp
+++ b/src/compiler/array-tran.lisp
@@ -573,13 +573,18 @@
 			   ,@(when offset-var `(,offset-var)))
 	 (if (not (array-header-p ,n-array))
 	     (let ((,n-array ,n-array))
-	       (declare (type (simple-array * (*)) ,n-array))
+	       ;; The #-CMU is because tonyms reported (sbcl-devel
+	       ;; 2002-09-29) that this declaration confuses old CMU
+	       ;; CL on x86 Debian 2.2. -- WHN 2002-10-02
+	       #-cmu (declare (type (simple-array * (*)) ,n-array))
 	       ,(once-only ((n-len `(length ,n-array))
 			    (n-end `(or ,n-evalue ,n-len)))
 		  `(if (<= ,n-svalue ,n-end ,n-len)
 		       ;; success
 		       (values ,n-array ,n-svalue ,n-end 0)
-		       (failed-%with-array-data ,n-array ,n-svalue ,n-evalue))))
+		       (failed-%with-array-data ,n-array
+						,n-svalue
+						,n-evalue))))
 	     (,(if force-inline '%with-array-data-macro '%with-array-data)
 	      ,n-array ,n-svalue ,n-evalue))
        ,@forms)))