0.8.1.36:

[sbcl.git] / src / compiler / ir1-translators.lisp

diff --git a/src/compiler/ir1-translators.lisp b/src/compiler/ir1-translators.lisp
index ec67238..23dfa9c 100644 (file)
--- 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)