[armedbear-cvs] r12118 - trunk/abcl/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Wed Aug 26 17:26:51 2009
New Revision: 12118

Log:
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.

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

Modified: trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	Wed Aug 26 17:26:51 2009
@@ -7915,11 +7915,9 @@
                  (cond
                    ((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)
                     (aver (not "Can't happen.")))