X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fearly-setf.lisp;h=4f7a94a7390b6f74a3517a14c616cf5af718364b;hb=cd13034f9415f64cdaa05893a4ac5ff1e95c97bd;hp=e4f43ed81e8f034f36585eebcf71175e03cc9e36;hpb=ab03a2f300a4706196ed3ba9429965523c5f7ddb;p=sbcl.git

diff --git a/src/code/early-setf.lisp b/src/code/early-setf.lisp
index e4f43ed..4f7a94a 100644
--- a/src/code/early-setf.lisp
+++ b/src/code/early-setf.lisp
@@ -197,9 +197,10 @@ GET-SETF-EXPANSION directly."
 
 (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)))