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

[Erik Huelsmann]

Author: ehuelsmann
Date: Tue Aug 11 16:34:48 2009
New Revision: 12095

Log:
Remove obsolete block-node slot.


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 16:34:48 2009
@@ -439,8 +439,6 @@
   return-p
   ;; True if there is a non-local RETURN from this block.
   non-local-return-p
-  ;; True if a tag in this tagbody is the target of a non-local GO.
-  non-local-go-p
   ;; If non-nil, register containing saved dynamic environment for this block.
   environment-register
   ;; Only used in LET/LET*/M-V-B nodes.