Changeset 12103


Ignore:
Timestamp:
08/14/09 20:08:19 (12 years ago)
Author:
ehuelsmann
Message:

Convert LOCALLY block-nodes to LOCALLY-NODEs.

Location:
trunk/abcl/src/org/armedbear/lisp
Files:
2 edited

Legend:

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

    r12102 r12103  
    239239(defun p1-locally (form)
    240240  (let* ((*visible-variables* *visible-variables*)
    241          (block (make-block-node '(LOCALLY)))
     241         (block (make-locally-node))
    242242         (free-specials (process-declarations-for-vars (cdr form) nil block)))
    243     (setf (block-free-specials block) free-specials)
     243    (setf (locally-free-specials block) free-specials)
    244244    (dolist (special free-specials)
    245245;;       (format t "p1-locally ~S is special~%" name)
    246246      (push special *visible-variables*))
    247247    (let ((*blocks* (cons block *blocks*)))
    248       (setf (block-form block)
     248      (setf (locally-form block)
    249249            (list* 'LOCALLY (p1-body (cdr form))))
    250250      block)))
  • trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

    r12102 r12103  
    44404440(defun p2-locally-node (block target representation)
    44414441  (with-saved-compiler-policy
    4442     (let* ((body (cdr (block-form block)))
    4443            (*visible-variables* (append (block-free-specials block)
     4442    (let* ((body (cdr (locally-form block)))
     4443           (*visible-variables* (append (locally-free-specials block)
    44444444                                        *visible-variables*))
    44454445           (*blocks* (cons block *blocks*)))
     
    79217921                    (p2-m-v-b-node form target)
    79227922                    (fix-boxing representation nil))
    7923                    ((eq name 'PROGV)
    7924                     (p2-progv-node form target representation))
    7925                    ((eq name 'LOCALLY)
    7926                     (p2-locally-node form target representation))
    79277923                   )))))
    79287924        ((node-p form)
Note: See TracChangeset for help on using the changeset viewer.