- Timestamp:
- 08/13/10 20:25:20 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/generic-class-file/abcl/src/org/armedbear/lisp/jvm.lisp
r12890 r12894 230 230 (defvar *registers-allocated* 0) 231 231 232 (defvar *handlers* ())233 234 (defstruct handler235 from ;; label indicating the start of the protected block236 to ;; label indicating the end of the protected block237 code ;; label to jump to if the specified exception occurs238 catch-type ;; pool index of the class name of the exception, or 0 (zero)239 ;; for 'all'240 )241 242 232 ;; Variables visible at the current point of compilation. 243 233 (defvar *visible-variables* nil
Note: See TracChangeset
for help on using the changeset viewer.