Changeset 12118


Ignore:
Timestamp:
08/26/09 21:26:51 (12 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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

    r12116 r12118  
    79167916                   ((eq name 'LET)
    79177917                    (p2-let/let*-node form target representation))
    7918 ;;                   ((eq name 'LABELS)
    7919 ;;                    (p2-labels-node form target representation))
    7920 ;;                   ((eq name 'SETF) ;; SETF functions create
     7918                   ((eq name 'SETF) ;; SETF functions create
    79217919                    ;; consp block names, if we're unlucky
    7922 ;;                    (p2-block-node form target representation))
     7920                    (p2-block-node form target representation))
    79237921                   (t
    79247922                    (print name)
Note: See TracChangeset for help on using the changeset viewer.