Changeset 11822

Timestamp:

05/03/09 13:03:48 (14 years ago)

Author:

ehuelsmann

Message:

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

File:

• trunk/abcl/src/org/armedbear/lisp/jvm.lisp (modified) (1 diff)

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

@@ -399 +399 @@
 than just restore the lastSpecialBinding (= dynamic environment).
 "
-  (memq (block-name object) '(CATCH UNWIND-PROTECT)))
+  (let ((name (block-name object)))
+    (or (equal name '(CATCH))
+        (equal name '(UNWIND-PROTECT)))))