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

Timestamp:

08/23/09 21:50:04 (14 years ago)

Author:

ehuelsmann

Message:

Convert FLET BLOCK-NODEs to flet-nodes.

Note: This commit also fixes the failure of some ANSI

tests introduced in r12086 by special casing SETF function
handling. This special casing is temporary.

File:

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

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

@@ -641 +641 @@
       ((with-saved-compiler-policy
      (process-optimization-declarations (cddr form))
-         (let* ((block (make-block-node '(FLET)))
+         (let* ((block (make-flet-node))
                 (*blocks* (cons block *blocks*))
                 (body (cddr form))
                 (*visible-variables* *visible-variables*))
-           (setf (block-free-specials block)
+           (setf (flet-free-specials block)
                  (process-declarations-for-vars body nil block))
-           (dolist (special (block-free-specials block))
+           (dolist (special (flet-free-specials block))
              (push special *visible-variables*))
-           (setf (block-form block)
+           (setf (flet-form block)
                  (list* (car form) local-functions (p1-body (cddr form))))
            block)))))