X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Farray-tran.lisp;h=2423b820764f2ee6d09dc19b35705f2e3ea22c2d;hb=3fe0010d2777b41e01ea9b4a0f894cfa40f7df1b;hp=ab21afabe6e357034e3df6a1fb2deb16fcd89263;hpb=f846a7a310d630cf538811959916492a28a75fb1;p=sbcl.git

diff --git a/src/compiler/array-tran.lisp b/src/compiler/array-tran.lisp
index ab21afa..2423b82 100644
--- a/src/compiler/array-tran.lisp
+++ b/src/compiler/array-tran.lisp
@@ -797,5 +797,7 @@
                    ((and (listp dims) (/= (length dims) 1))
                     ;; multi-dimensional array, will have a header
                     (specifier-type '(eql t)))
+                   ((eql (array-type-complexp type) t)
+                    (specifier-type '(eql t)))
                    (t
                     nil)))))))