X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=inline;f=src%2Fcode%2Fmacros.lisp;h=9159bfb28f442dcd74ac52336576e43b27f90a6d;hb=9767de1cecfe50560fe1da69fd458b6148a66da3;hp=7e7783aedaf1c6f4f9f4d11d4bd76ff500e7e86a;hpb=22b819c0cd0ca0ea5be52ba280b9e9e0b8e86210;p=sbcl.git

diff --git a/src/code/macros.lisp b/src/code/macros.lisp
index 7e7783a..9159bfb 100644
--- a/src/code/macros.lisp
+++ b/src/code/macros.lisp
@@ -133,8 +133,7 @@
 			:environment environment)
       (let ((def `(lambda (,whole ,environment)
 		    ,@local-decs
-		    (block ,(fun-name-block-name name)
-		      ,body)))
+		    ,body))
 	    (debug-name (debug-namify "DEFINE-COMPILER-MACRO ~S" name)))
 	`(eval-when (:compile-toplevel :load-toplevel :execute)
 	  (sb!c::%define-compiler-macro ',name