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

[Mark Evenson]

Author: mevenson
Date: Thu Aug 27 05:52:41 2009
New Revision: 12120

Log:
Merged branches.



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	Thu Aug 27 05:52:41 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.")))