1.0.28.19: faster ARRAY-DIMENSION for non-vectors

[sbcl.git] / src / code / fop.lisp

diff --git a/src/code/fop.lisp b/src/code/fop.lisp
index d9acdd5..999faa3 100644 (file)
--- a/src/code/fop.lisp
+++ b/src/code/fop.lisp
@@ -417,7 +417,8 @@
                            (dimensions () (cons (pop-stack) dimensions)))
                           ((zerop i) dimensions)
                         (declare (type index i)))
-                      nil)
+                      nil
+                      t)
     res))
 
 (define-fop (fop-single-float-vector 84)