Changeset 11822


Ignore:
Timestamp:
05/03/09 13:03:48 (13 years ago)
Author:
ehuelsmann
Message:

Followup to r11818: Fix block-requires-non-local-exit-p.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/jvm.lisp

    r11821 r11822  
    399399than just restore the lastSpecialBinding (= dynamic environment).
    400400"
    401   (memq (block-name object) '(CATCH UNWIND-PROTECT)))
     401  (let ((name (block-name object)))
     402    (or (equal name '(CATCH))
     403        (equal name '(UNWIND-PROTECT)))))
    402404
    403405
Note: See TracChangeset for help on using the changeset viewer.