[Sbcl-commits] CVS: sbcl/src/code early-setf.lisp,1.29,1.30

[Nikodemus S. <de...@us...>]

Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv28176/src/code

Modified Files:
	early-setf.lisp 
Log Message:
1.0.4.47: correct the mess of 1.0.4.46
 * Previous was an accidental commit. Sorry.


Index: early-setf.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/early-setf.lisp,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -d -r1.29 -r1.30
--- early-setf.lisp	8 Apr 2007 12:51:36 -0000	1.29
+++ early-setf.lisp	8 Apr 2007 13:12:31 -0000	1.30
@@ -405,6 +405,7 @@
                   (assign-setf-macro
                    ',access-fn
                    (lambda (,access-form-var ,env-var)
+                     (declare (ignorable ,env-var))
                      (%defsetf ,access-form-var ,(length store-variables)
                                (lambda (,whole-var)
                                  ,@local-decs