[armedbear-cvs] r11790 - trunk/abcl/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Mon Apr 27 17:27:51 2009
New Revision: 11790

Log:
Remove a NIL block which doesn't seem to matter.
Since we add named blocks all over the place,
surely adding an implicit NIL block isn't a good thing.

Modified:
   trunk/abcl/src/org/armedbear/lisp/compiler-pass1.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/compiler-pass1.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/compiler-pass1.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/compiler-pass1.lisp	Mon Apr 27 17:27:51 2009
@@ -510,9 +510,8 @@
              (multiple-value-bind (body decls)
                  (parse-body body)
                (setf (compiland-lambda-expression compiland)
-                     (if named-lambda-p
-                         `(lambda ,lambda-list , at decls (block nil , at body))
-                         `(lambda ,lambda-list , at decls , at body)))
+                     ;; if there still was a doc-string present, remove it
+                     `(lambda ,lambda-list , at decls , at body))
                (let ((*visible-variables* *visible-variables*)
                      (*current-compiland* compiland))
                  (p1-compiland compiland)))