Changeset 11830


Ignore:
Timestamp:
05/04/09 21:07:23 (13 years ago)
Author:
ehuelsmann
Message:

Make free specials visible in p2-locally and p2-m-v-b.

File:
1 edited

Legend:

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

    r11829 r11830  
    40344034    (dolist (variable variables)
    40354035      (push variable *visible-variables*))
     4036    (dolist (variable (block-free-specials block))
     4037      (push variable *visible-variables*))
    40364038    ;; Body.
    40374039    (compile-progn-body (cdddr form) target)
     
    44204422(defun p2-locally (form target representation)
    44214423  (with-saved-compiler-policy
    4422     (let ((body (cdr form)))
     4424    (let* ((body (cdr form))
     4425           (*visible-variables* *visible-variables*)
     4426           (specials (process-special-declarations body)))
     4427      (dolist (name specials)
     4428        (push (make-variable :name name :special-p t) *visible-variables*))
    44234429      (process-optimization-declarations body)
    44244430      (compile-progn-body body target representation))))
Note: See TracChangeset for help on using the changeset viewer.