Changeset 12092


Ignore:
Timestamp:
08/11/09 11:38:00 (14 years ago)
Author:
ehuelsmann
Message:

With node/block changes ahead: when unsure about the actual type of the node
being accessed, use NODE accessors.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/abcl/src/org/armedbear/lisp/jvm.lisp

    r12091 r12092  
    405405(defun find-block (name)
    406406  (dolist (block *blocks*)
    407     (when (eq name (block-name block))
     407    (when (eq name (node-name block))
    408408      (return block))))
    409409
    … …  
    427427than just restore the lastSpecialBinding (= dynamic environment).
    428428"
    429   (let ((name (block-name object)))
     429  (let ((name (node-name object)))
    430430    (or (equal name '(CATCH))
    431431        (equal name '(UNWIND-PROTECT))
Note: See TracChangeset for help on using the changeset viewer.