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

[Erik Huelsmann]

Author: ehuelsmann
Date: Sun May  3 09:03:48 2009
New Revision: 11822

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

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

Modified: trunk/abcl/src/org/armedbear/lisp/jvm.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/jvm.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/jvm.lisp	Sun May  3 09:03:48 2009
@@ -398,7 +398,9 @@
 Non-local exits are required by blocks which do more in their cleanup
 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)))))
 
 
 (defknown enclosed-by-protected-block-p (&optional t) boolean)