Changeset 12118

Timestamp:

08/26/09 21:26:51 (14 years ago)

Author:

ehuelsmann

Message:

Adjust BLOCK-NODE dispatch routine.

Note: The SETF part can only be removed once

all non-BLOCK-NODEs have been migrated to
their respective node type structures.

File:

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

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

@@ -7916 +7916 @@
                    ((eq name 'LET)
                     (p2-let/let*-node form target representation))
-;;                   ((eq name 'LABELS)
-;;                    (p2-labels-node form target representation))
-;;                   ((eq name 'SETF) ;; SETF functions create
+                   ((eq name 'SETF) ;; SETF functions create
                     ;; consp block names, if we're unlucky
-;;                    (p2-block-node form target representation))
+                    (p2-block-node form target representation))
                    (t
                     (print name)