Changeset 11922


Ignore:
Timestamp:
05/21/09 21:39:34 (9 years ago)
Author:
ehuelsmann
Message:

Simplify COMPILE-1.

File:
1 edited

Legend:

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

    r11921 r11922  
    82218221      (p1-compiland compiland)
    82228222      (setf *closure-variables*
    8223             (remove-if-not #'variable-used-non-locally-p *all-variables*))
    8224       (when *closure-variables*
    8225         (setf *closure-variables*
    8226               (remove-if #'variable-special-p *closure-variables*))
    8227         (when *closure-variables*
    8228           (let ((i 0))
    8229             (dolist (var (reverse *closure-variables*))
    8230               (setf (variable-closure-index var) i)
    8231               (dformat t "var = ~S closure index = ~S~%" (variable-name var)
    8232                        (variable-closure-index var))
    8233               (incf i)))))
     8223            (remove-if #'variable-special-p
     8224                       (remove-if-not #'variable-used-non-locally-p
     8225                                      *all-variables*)))
     8226      (let ((i 0))
     8227        (dolist (var (reverse *closure-variables*))
     8228          (setf (variable-closure-index var) i)
     8229          (dformat t "var = ~S closure index = ~S~%" (variable-name var)
     8230                   (variable-closure-index var))
     8231          (incf i)))
     8232
    82348233      ;; Pass 2.
    82358234      (with-class-file (compiland-class-file compiland)
Note: See TracChangeset for help on using the changeset viewer.