[armedbear-cvs] r13152 - branches/unsafe-p-removal/abcl/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Sun Jan 16 05:45:55 2011
New Revision: 13152

Log:
A jump being local already implies it's within the same compiland.

Modified:
   branches/unsafe-p-removal/abcl/src/org/armedbear/lisp/jvm.lisp

Modified: branches/unsafe-p-removal/abcl/src/org/armedbear/lisp/jvm.lisp
==============================================================================
--- branches/unsafe-p-removal/abcl/src/org/armedbear/lisp/jvm.lisp	(original)
+++ branches/unsafe-p-removal/abcl/src/org/armedbear/lisp/jvm.lisp	Sun Jan 16 05:45:55 2011
@@ -683,7 +683,6 @@
   (or (when (jump-node-p node)
         (let ((target-block (jump-target-block node)))
           (and (null (jump-non-local-p node))
-               (eq (node-compiland target-block) *current-compiland*)
                (member target-block *blocks*))))
       (when (tagbody-node-p node) (tagbody-non-local-go-p node))
       (when (block-node-p node) (block-non-local-return-p node))