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

diff --git a/src/code/seq.lisp b/src/code/seq.lisp
index a2c9d66..429d674 100644
--- a/src/code/seq.lisp
+++ b/src/code/seq.lisp
@@ -579,7 +579,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 +615,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)