X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fearly-setf.lisp;h=ee7cc7d84d4edc01f3a062ea17ec4738fb690137;hb=90a83478829f33b91f6300c183b374a968bc13c6;hp=c55cf6aa69d20f438f7408688c65519963cb5484;hpb=4898ef32c639b1c7f4ee13a5ba566ce6debd03e6;p=sbcl.git

diff --git a/src/code/early-setf.lisp b/src/code/early-setf.lisp
index c55cf6a..ee7cc7d 100644
--- a/src/code/early-setf.lisp
+++ b/src/code/early-setf.lisp
@@ -393,12 +393,12 @@ GET-SETF-EXPANSION directly."
          (destructuring-bind
              (lambda-list (&rest store-variables) &body body)
              rest
-           (let ((arglist-var (gensym "ARGS-"))
+           (let ((whole-var (gensym "WHOLE-"))
                  (access-form-var (gensym "ACCESS-FORM-"))
                  (env-var (gensym "ENVIRONMENT-")))
              (multiple-value-bind (body local-decs doc)
                  (parse-defmacro `(,lambda-list ,@store-variables)
-                                 arglist-var body access-fn 'defsetf
+                                 whole-var body access-fn 'defsetf
                                  :anonymousp t)
                `(eval-when (:compile-toplevel :load-toplevel :execute)
                   (assign-setf-macro
@@ -406,7 +406,7 @@ GET-SETF-EXPANSION directly."
                    (lambda (,access-form-var ,env-var)
                      (declare (ignore ,env-var))
                      (%defsetf ,access-form-var ,(length store-variables)
-                               (lambda (,arglist-var)
+                               (lambda (,whole-var)
                                  ,@local-decs
                                  ,body)))
                    nil