From 1a81868f8d85dd06eb9e188f644269f274363ffb Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Sat, 20 Jul 2013 19:05:33 +0200
Subject: LAMBDA: Reenable namelessness.

---
 sb-eval2.lisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/sb-eval2.lisp b/sb-eval2.lisp
index 5da957c..490c26d 100644
--- a/sb-eval2.lisp
+++ b/sb-eval2.lisp
@@ -524,7 +524,9 @@
                                default-values)))
                (body-context (context-add-specials new-context specials))
                (body* (prepare-form
-                       `(block ,(sb-int:fun-name-block-name name) ,@body)
+                       (if namep
+                           `(block ,(sb-int:fun-name-block-name name) ,@body)
+                           `(progn ,@body))
                        body-context))
                (unbound (gensym)))
           (setq varspecs (nreverse varspecs))
-- 
cgit v1.2.3