From: Christophe R. <cr...@us...> - 2004-02-12 10:37:18
|
Update of /cvsroot/sbcl/sbcl/src/code In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23650/src/code Modified Files: early-setf.lisp Log Message: 0.8.7.52: Miscellaneous fixes ... fix bad behaviour on install.sh on missing directories (reported Zach Beane sbcl-devel 2004-01-16) ... fix PUSHNEW docstring (patch VJA sbcl-devel 2003-12-30) ... call PACK-BEFORE-GC-HOOK by hand in make-target-2.sh, to get core sizes down a bit (2Mb on x86, 6Mb on PPC). We're still awaiting a proper fix, though. Index: early-setf.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/early-setf.lisp,v retrieving revision 1.20 retrieving revision 1.21 diff -u -d -r1.20 -r1.21 --- early-setf.lisp 27 Nov 2003 22:44:36 -0000 1.20 +++ early-setf.lisp 12 Feb 2004 10:32:30 -0000 1.21 @@ -197,9 +197,10 @@ (defmacro-mundanely pushnew (obj place &rest keys &environment env) #!+sb-doc - "Takes an object and a location holding a list. If the object is already - in the list, does nothing. Else, conses the object onto the list. Returns - NIL. If there is a :TEST keyword, this is used for the comparison." + "Takes an object and a location holding a list. If the object is + already in the list, does nothing; otherwise, conses the object onto + the list. Returns the modified list. If there is a :TEST keyword, this + is used for the comparison." (multiple-value-bind (dummies vals newval setter getter) (get-setf-method place env) (let ((g (gensym))) |