Changeset 11927

Timestamp:

05/22/09 18:17:11 (14 years ago)

Author:

ehuelsmann

Message:

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

File:

• trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp (modified) (2 diffs)

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

@@ -8456 +8456 @@
                              :references-allowed-p
                              (not (sys:symbol-macro-p (cdr var)))
-                             :compiland NIL) *visible-variables*)))
-    (when environment
+                             :compiland NIL) *visible-variables*))
       (dolist (fun (reverse (environment-all-functions environment)))
         (push (make-local-function :name (car fun)
@@ -8464 +8463 @@
                                    :environment environment)
               *local-functions*)))
-    ;; FIXME: we still need to add local functions, ofcourse.
     (handler-bind
         ((compiler-unsupported-feature-error