X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fseq.lisp;h=ec14addcb5c658e0d7f0771e509738d9a1891d93;hb=2d4a0df3457bcd50916b33d374da592d8776db0a;hp=429d674eb59f5dc6c5481bea798e7b57cd3cdbf2;hpb=d2241edb01a6dad8a7bc1107d28d0873f5f8d83e;p=sbcl.git

diff --git a/src/code/seq.lisp b/src/code/seq.lisp
index 429d674..ec14add 100644
--- a/src/code/seq.lisp
+++ b/src/code/seq.lisp
@@ -285,8 +285,9 @@
 	       ;; (OR STRING BIT-VECTOR)]
 	       (progn
 		 (aver (= (length (array-type-dimensions type)) 1))
-		 (let ((etype (type-specifier
-			       (array-type-specialized-element-type type)))
+		 (let* ((etype (type-specifier
+                                (array-type-specialized-element-type type)))
+                        (etype (if (eq etype '*) t etype))
 		       (type-length (car (array-type-dimensions type))))
 		   (unless (or (eq type-length '*)
 			       (= type-length length))