X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Flist.lisp;h=f15ad9f8aa0fd68f770900b2d77d1847527397e9;hb=2561033fd3ed9e224dffc445262e097e5abfa920;hp=225f1bb61dadc74df63bbc54406bab867d74600f;hpb=8e500c66a52b58fd8dab4b098f76e36734d8fdbd;p=sbcl.git

diff --git a/src/code/list.lisp b/src/code/list.lisp
index 225f1bb..f15ad9f 100644
--- a/src/code/list.lisp
+++ b/src/code/list.lisp
@@ -233,7 +233,8 @@
 (defun last1 (list)
   #!+sb-doc
   "Return the last cons (not the last element) of a list"
-  (let ((rest list))
+  (let ((rest list)
+        (list list))
     (loop (unless (consp rest) (return list))
           (shiftf list rest (cdr rest)))))