X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ffop.lisp;h=999faa38e8f99287addc66712aaf5e864ddbac3f;hb=fbae90af33b92c5411ddcb419485dcf2bca47ab7;hp=d9acdd5f6349798894791c04a18e32d18c901751;hpb=a160917364f85b38dc0826a5e3dcef87e3c4c62c;p=sbcl.git

diff --git a/src/code/fop.lisp b/src/code/fop.lisp
index d9acdd5..999faa3 100644
--- 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)