Changeset 11878
- Timestamp:
- 05/16/09 07:26:03 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/jvm.lisp
r11871 r11878 154 154 (defstruct compiland 155 155 name 156 (kind :external) ; :INTERNAL or :EXTERNAL156 (kind :external) ; :INTERNAL or :EXTERNAL 157 157 lambda-expression 158 arg-vars 159 free-specials 160 arity ; NIL if the number of args can vary. 161 p1-result 162 parent 163 (children 0 :type fixnum) ; Number of local functions defined with FLET or LABELS. 158 arg-vars ; variables for lambda arguments 159 free-specials ; 160 arity ; number of args, or NIL if the number of args can vary. 161 p1-result ; the parse tree as created in pass 1 162 parent ; the parent for compilands which defined within another 163 (children 0 ; Number of local functions 164 :type fixnum) ; defined with with FLET, LABELS or LAMBDA 164 165 argument-register 165 166 closure-register … … 328 329 compiland 329 330 inline-expansion 330 function 331 function ;; the function loaded through load-compiled-function 331 332 class-file 332 variable) 333 variable ;; the variable which contains the loaded compiled function 334 ;; or compiled closure 335 ) 333 336 334 337 (defvar *local-functions* ())
Note: See TracChangeset
for help on using the changeset viewer.