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

[Erik Huelsmann]

Author: ehuelsmann
Date: Sun May  3 16:12:08 2009
New Revision: 11826

Log:
Add documentation to the fields in the TAG structure.


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 16:12:08 2009
@@ -425,8 +425,11 @@
       (return t))))
 
 (defstruct tag
+  ;; The symbol (or integer) naming the tag
   name
+  ;; The symbol which is the jump target in JVM byte code
   label
+  ;; The associated TAGBODY
   block
   (compiland *current-compiland*))