From: Christophe R. <cr...@us...> - 2005-09-21 11:29:05
|
Update of /cvsroot/sbcl/sbcl/src/code In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26607/src/code Modified Files: list.lisp Log Message: 0.9.4.83: Pacify the compiler when inlining LAST1's code in a high-speed low-space compilation environment. ... rebind the argument within last1 so that the assignments are to that binding. Index: list.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/list.lisp,v retrieving revision 1.27 retrieving revision 1.28 diff -u -d -r1.27 -r1.28 --- list.lisp 2 Aug 2005 13:52:37 -0000 1.27 +++ list.lisp 21 Sep 2005 11:28:56 -0000 1.28 @@ -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))))) |