X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Flist.lisp;h=762561c4a1ffb653603982ba047ad4b07d406d93;hb=d2241edb01a6dad8a7bc1107d28d0873f5f8d83e;hp=8bc2a885d098e73e9e30eb6220cb91bebcddc25f;hpb=3f82b95d9a0e29d8c6b218ce16447e2bc2e93351;p=sbcl.git

diff --git a/src/code/list.lisp b/src/code/list.lisp
index 8bc2a88..762561c 100644
--- a/src/code/list.lisp
+++ b/src/code/list.lisp
@@ -394,7 +394,7 @@
 (defun nreconc (x y)
   #!+sb-doc
   "Return (NCONC (NREVERSE X) Y)."
-  (do ((1st (cdr x) (if (atom 1st) 1st (cdr 1st)))
+  (do ((1st (cdr x) (if (endp 1st) 1st (cdr 1st)))
        (2nd x 1st)              ;2nd follows first down the list.
        (3rd y 2nd))             ;3rd follows 2nd down the list.
       ((atom 2nd) 3rd)