0.8.0.71:

[sbcl.git] / src / compiler / array-tran.lisp

diff --git a/src/compiler/array-tran.lisp b/src/compiler/array-tran.lisp
index 9d0df27..07ab5d3 100644 (file)
--- 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))
                     '(*))