"1.0.41.2": threads: Add memory-barrier framework.

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

diff --git a/src/code/loop.lisp b/src/code/loop.lisp
index e2df9b8..eea95f8 100644 (file)
--- 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)))