X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Farray-tran.lisp;h=07ab5d35e8245a370eb5626e653ae1d83a24a70f;hb=a070a6a472f050b4ca1346f047b7577fc407217d;hp=9d0df274f90208aec49c19143e956bf1a3a3e6be;hpb=77869604fc3eb4417a630651e5fe40e74342ee59;p=sbcl.git

diff --git a/src/compiler/array-tran.lisp b/src/compiler/array-tran.lisp
index 9d0df27..07ab5d3 100644
--- a/src/compiler/array-tran.lisp
+++ b/src/compiler/array-tran.lisp
@@ -142,9 +142,9 @@
             ,(cond ((constant-continuation-p dims)
                     (let* ((val (continuation-value dims))
 			   (cdims (if (listp val) val (list val))))
-		      (if (or simple (/= (length cdims) 1))
+		      (if simple
 			  cdims
-			  '(*))))
+			  (length cdims))))
                    ((csubtypep (continuation-type dims)
                                (specifier-type 'integer))
                     '(*))