X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fearly-setf.lisp;h=d1841334ebe7519fb6938e7c892c623e94fd93f2;hb=cd08dc8fd4d4b77fdbe87addb06e97cde247bbf9;hp=0f6396588bdd4dec883d5c740933f30b34c4531b;hpb=83388ef649bc59c983042c082fb23797ca088406;p=sbcl.git

diff --git a/src/code/early-setf.lisp b/src/code/early-setf.lisp
index 0f63965..d184133 100644
--- a/src/code/early-setf.lisp
+++ b/src/code/early-setf.lisp
@@ -405,10 +405,9 @@ GET-SETF-EXPANSION directly."
                   (assign-setf-macro
                    ',access-fn
                    (lambda (,access-form-var ,env-var)
-                     (declare (ignorable ,env-var))
+                     ,@local-decs
                      (%defsetf ,access-form-var ,(length store-variables)
                                (lambda (,whole-var)
-                                 ,@local-decs
                                  ,body)))
                    nil
                    ',doc))))))