Changeset 11899
- Timestamp:
- 05/19/09 19:50:30 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/jvm.lisp
r11898 r11899 209 209 210 210 (defstruct handler 211 from 212 to 213 code 214 catch-type) 211 from ;; label indicating the start of the protected block 212 to ;; label indicating the end of the protected block 213 code ;; label to jump to if the specified exception occurs 214 catch-type ;; pool index of the class name of the exception, or 0 (zero) 215 ;; for 'all' 216 ) 215 217 216 218 ;; Variables visible at the current point of compilation. 217 (defvar *visible-variables* nil) 219 (defvar *visible-variables* nil 220 "All variables visible to the form currently being 221 processed, including free specials.") 218 222 219 223 ;; All variables seen so far. 220 (defvar *all-variables* nil) 224 (defvar *all-variables* nil 225 "All variables in the lexical scope (thus excluding free specials) 226 of the compilands being processed (p1: so far; p2: in total).") 221 227 222 228 ;; Undefined variables that we've already warned about.
Note: See TracChangeset
for help on using the changeset viewer.