X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Fir1-translators.lisp;h=23dfa9c3ab31087c0a1d132b3fd57b23f5586227;hb=68612b8227bdd1a9e70962201f54231c82affa17;hp=ec672382ced5f804ee2fd37da83cc83e960b699c;hpb=05525d3a5906d7a89fcb689c26177732493c40ce;p=sbcl.git

diff --git a/src/compiler/ir1-translators.lisp b/src/compiler/ir1-translators.lisp
index ec67238..23dfa9c 100644
--- a/src/compiler/ir1-translators.lisp
+++ b/src/compiler/ir1-translators.lisp
@@ -289,7 +289,7 @@
 		nil
 		`(lambda (,whole ,environment)
 		  ,@local-decls
-		  (block ,name ,body))
+                  ,body)
 		,lexenv))))))))
 
 (defun funcall-in-macrolet-lexenv (definitions fun)