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

[Erik Huelsmann]

Author: ehuelsmann
Date: Tue Aug 11 07:35:39 2009
New Revision: 12091

Log:
Remove condition from another era
 (when TAGBODY-s used to store a environment themselves).

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	Tue Aug 11 07:35:39 2009
@@ -449,8 +449,7 @@
   (dolist (enclosing-block *blocks*)
     (when (eq enclosing-block outermost-block)
       (return nil))
-    (when (and (block-environment-register enclosing-block)
-               (not (block-needs-environment-restoration enclosing-block)))
+    (when (and (block-environment-register enclosing-block))
       (return t))))
 
 (defknown environment-register-to-restore (&optional t) t)