X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fearly-setf.lisp;h=ee40cbd251fa2c0673e62210fe290ce6e43f123c;hb=9b1fade83db8453b75b8c7380eb12ce41b5b889c;hp=d1841334ebe7519fb6938e7c892c623e94fd93f2;hpb=cd08dc8fd4d4b77fdbe87addb06e97cde247bbf9;p=sbcl.git

diff --git a/src/code/early-setf.lisp b/src/code/early-setf.lisp
index d184133..ee40cbd 100644
--- a/src/code/early-setf.lisp
+++ b/src/code/early-setf.lisp
@@ -307,8 +307,9 @@ GET-SETF-EXPANSION directly."
   "Creates a new read-modify-write macro like PUSH or INCF."
   (let ((other-args nil)
         (rest-arg nil)
-        (env (gensym))
-        (reference (gensym)))
+        (env (make-symbol "ENV"))          ; To beautify resulting arglist.
+        (reference (make-symbol "PLACE"))) ; Note that these will be nonexistent
+                                           ;  in the final expansion anyway.
     ;; Parse out the variable names and &REST arg from the lambda list.
     (do ((ll lambda-list (cdr ll))
          (arg nil))