X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fearly-setf.lisp;h=e532da630405d1f31ec49bb9bf433b0cee49d239;hb=74a48d09e08aead6f67204878bdf9be4f448e1e8;hp=8a21d7ae2097ba9569a225f263e931c2f27b04f0;hpb=4ad052044a22f502d9dc6faf6dfe01f3bab84262;p=sbcl.git

diff --git a/src/code/early-setf.lisp b/src/code/early-setf.lisp
index 8a21d7a..e532da6 100644
--- a/src/code/early-setf.lisp
+++ b/src/code/early-setf.lisp
@@ -174,8 +174,8 @@ GET-SETF-EXPANSION directly."
 	 `(let* ,(nreverse bindlist) ,@(nreverse storelist) ,resultvar))
       (multiple-value-bind (sm1 sm2 sm3 sm4 sm5)
 	  (get-setf-method (first arglist) env)
-	(mapc #'(lambda (var val)
-		  (push `(,var ,val) bindlist))
+	(mapc (lambda (var val)
+		(push `(,var ,val) bindlist))
 	      sm1
 	      sm2)
 	(push `(,lastvar ,sm5) bindlist)
@@ -378,13 +378,13 @@ GET-SETF-EXPANSION directly."
 	       `(eval-when (:compile-toplevel :load-toplevel :execute)
 		  (assign-setf-macro
 		   ',access-fn
-		   #'(lambda (,access-form-var ,env-var)
-		       (declare (ignore ,env-var))
-		       (%defsetf ,access-form-var ,(length store-variables)
-				 #'(lambda (,arglist-var)
-				     ,@local-decs
-				     (block ,access-fn
-				       ,body))))
+		   (lambda (,access-form-var ,env-var)
+		     (declare (ignore ,env-var))
+		     (%defsetf ,access-form-var ,(length store-variables)
+			       (lambda (,arglist-var)
+				 ,@local-decs
+				 (block ,access-fn
+				   ,body))))
 		   nil
 		   ',doc))))))
 	(t
@@ -432,9 +432,9 @@ GET-SETF-EXPANSION directly."
 			:environment environment)
       `(eval-when (:compile-toplevel :load-toplevel :execute)
 	 (assign-setf-macro ',access-fn
-			    #'(lambda (,whole ,environment)
-				,@local-decs
-				(block ,access-fn ,body))
+			    (lambda (,whole ,environment)
+			      ,@local-decs
+			      (block ,access-fn ,body))
 			    nil
 			    ',doc)))))