0.8.0.21

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

diff --git a/src/code/seq.lisp b/src/code/seq.lisp
index a2c9d66..ec14add 100644 (file)
--- 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))
@@ -579,7 +580,7 @@
 
 (sb!xc:defmacro list-reverse-macro (sequence)
   `(do ((new-list ()))
-       ((atom ,sequence) new-list)
+       ((endp ,sequence) new-list)
      (push (pop ,sequence) new-list)))
 
 ) ; EVAL-WHEN
@@ -615,7 +616,7 @@
                (aref ,sequence right-index)))))
 
 (sb!xc:defmacro list-nreverse-macro (list)
-  `(do ((1st (cdr ,list) (if (atom 1st) 1st (cdr 1st)))
+  `(do ((1st (cdr ,list) (if (endp 1st) 1st (cdr 1st)))
        (2nd ,list 1st)
        (3rd '() 2nd))
        ((atom 2nd) 3rd)