Changeset 11925


Ignore:
Timestamp:
05/22/09 10:06:37 (9 years ago)
Author:
ehuelsmann
Message:

Add reasoning related to variable-environment
and the closure-array.

File:
1 edited

Legend:

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

    r11924 r11925  
    82468246      ;; Pass 1.
    82478247      (p1-compiland compiland)
     8248
     8249      ;; *all-variables* doesn't contain variables which
     8250      ;; are in an enclosing lexical environment (variable-environment)
     8251      ;; so we don't need to filter them out
    82488252      (setf *closure-variables*
    82498253            (remove-if #'variable-special-p
    82508254                       (remove-if-not #'variable-used-non-locally-p
    8251                                       *all-variables*)))
     8255                                                 *all-variables*)))
    82528256      (let ((i 0))
    82538257        (dolist (var (reverse *closure-variables*))
Note: See TracChangeset for help on using the changeset viewer.