X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fearly-setf.lisp;h=6549d414dfabe0ddde91ba67e98fd16b3d58b8df;hb=62c09fabe8aa8f1bd75bf4db4c20e195a1b6bc1d;hp=76a8c438983c1406f00fe52c9d765866f49b2278;hpb=670010e3f3dcd62efaf23f61abdc73950edb88c6;p=sbcl.git

diff --git a/src/code/early-setf.lisp b/src/code/early-setf.lisp
index 76a8c43..6549d41 100644
--- a/src/code/early-setf.lisp
+++ b/src/code/early-setf.lisp
@@ -372,8 +372,7 @@ GET-SETF-EXPANSION directly."
 		     (%defsetf ,access-form-var ,(length store-variables)
 			       (lambda (,arglist-var)
 				 ,@local-decs
-				 (block ,access-fn
-				   ,body))))
+                                 ,body)))
 		   nil
 		   ',doc))))))
 	(t
@@ -423,7 +422,7 @@ GET-SETF-EXPANSION directly."
 	 (assign-setf-macro ',access-fn
 			    (lambda (,whole ,environment)
 			      ,@local-decs
-			      (block ,access-fn ,body))
+			      ,body)
 			    nil
 			    ',doc)))))