Changeset 11927


Ignore:
Timestamp:
05/22/09 18:17:11 (12 years ago)
Author:
ehuelsmann
Message:

Merge 2 consecutive WHEN blocks with the same condition;
remove the FIXME comment which is now outdated.

File:
1 edited

Legend:

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

    r11926 r11927  
    84568456                             :references-allowed-p
    84578457                             (not (sys:symbol-macro-p (cdr var)))
    8458                              :compiland NIL) *visible-variables*)))
    8459     (when environment
     8458                             :compiland NIL) *visible-variables*))
    84608459      (dolist (fun (reverse (environment-all-functions environment)))
    84618460        (push (make-local-function :name (car fun)
     
    84648463                                   :environment environment)
    84658464              *local-functions*)))
    8466     ;; FIXME: we still need to add local functions, ofcourse.
    84678465    (handler-bind
    84688466        ((compiler-unsupported-feature-error
Note: See TracChangeset for help on using the changeset viewer.