Changeset 12116 for trunk/abcl/src/org/armedbear/lisp/compiler-pass1.lisp

Timestamp:

08/24/09 19:21:13 (14 years ago)

Author:

ehuelsmann

Message:

Convert LABELS BLOCK-NODEs to LABELS-NODEs.

File:

• trunk/abcl/src/org/armedbear/lisp/compiler-pass1.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/compiler-pass1.lisp

@@ -671 +671 @@
          (*current-compiland* (local-function-compiland local-function)))
      (p1-compiland (local-function-compiland local-function))))
-       (let* ((block (make-block-node '(LABELS)))
+       (let* ((block (make-labels-node))
               (*blocks* (cons block *blocks*))
               (body (cddr form))
               (*visible-variables* *visible-variables*))
-         (setf (block-free-specials block)
+         (setf (labels-free-specials block)
                (process-declarations-for-vars body nil block))
-         (dolist (special (block-free-specials block))
+         (dolist (special (labels-free-specials block))
            (push special *visible-variables*))
-         (setf (block-form block)
+         (setf (labels-form block)
                (list* (car form) local-functions (p1-body (cddr form))))
          block))))