Changeset 11790

Timestamp:

04/27/09 21:27:51 (14 years ago)

Author:

ehuelsmann

Message:

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.

File:

• trunk/abcl/src/org/armedbear/lisp/compiler-pass1.lisp (modified) (1 diff)

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

@@ -511 +511 @@
                  (parse-body body)
                (setf (compiland-lambda-expression compiland)
-                     (if named-lambda-p
-                         `(lambda ,lambda-list ,@decls (block nil ,@body))
-                         `(lambda ,lambda-list ,@decls ,@body)))
+                     ;; if there still was a doc-string present, remove it
+                     `(lambda ,lambda-list ,@decls ,@body))
                (let ((*visible-variables* *visible-variables*)
                      (*current-compiland* compiland))