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

[Erik Huelsmann]

Author: ehuelsmann
Date: Fri May 22 14:17:11 2009
New Revision: 11927

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

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

Modified: trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	Fri May 22 14:17:11 2009
@@ -8455,15 +8455,13 @@
                              :environment environment
                              :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)
                                    :references-allowed-p
                                    (not (macro-function-p (cdr fun)))
                                    :environment environment)
               *local-functions*)))
-    ;; FIXME: we still need to add local functions, ofcourse.
     (handler-bind
         ((compiler-unsupported-feature-error
           #'(lambda (c)