X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Floop.lisp;h=eea95f8256f20714cb69e38a9e4cff6a232bcc46;hb=65b5ab7e713d04e0d76bc0ee196374f6e57b922f;hp=e2df9b88c243ff326e498505cb29a2cbc5c617f8;hpb=27af0fb82b513ad08f16ce72f6f5a001835e3519;p=sbcl.git

diff --git a/src/code/loop.lisp b/src/code/loop.lisp
index e2df9b8..eea95f8 100644
--- a/src/code/loop.lisp
+++ b/src/code/loop.lisp
@@ -938,7 +938,8 @@ code to be loaded.
         ((sb!xc:subtypep data-type 'vector)
          (let ((ctype (sb!kernel:specifier-type data-type)))
            (when (sb!kernel:array-type-p ctype)
-             (let ((etype (sb!kernel:array-type-element-type ctype)))
+             (let ((etype (sb!kernel:type-*-to-t
+                           (sb!kernel:array-type-specialized-element-type ctype))))
                (make-array 0 :element-type (sb!kernel:type-specifier etype))))))
         (t
          nil)))