Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/compiler-pass1.lisp

    r11789 r11790  
    511511                 (parse-body body)
    512512               (setf (compiland-lambda-expression compiland)
    513                      (if named-lambda-p
    514                          `(lambda ,lambda-list ,@decls (block nil ,@body))
    515                          `(lambda ,lambda-list ,@decls ,@body)))
     513                     ;; if there still was a doc-string present, remove it
     514                     `(lambda ,lambda-list ,@decls ,@body))
    516515               (let ((*visible-variables* *visible-variables*)
    517516                     (*current-compiland* compiland))
Note: See TracChangeset for help on using the changeset viewer.