Changeset 12782
- Timestamp:
- 07/04/10 08:45:13 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/generic-class-file/abcl/src/org/armedbear/lisp/jvm-class-file.lisp
r12781 r12782 248 248 (%make-constant-double/long 5 index value)) 249 249 250 (defstruct (constant-name/type (:include constant 250 (defstruct (constant-name/type (:constructor 251 make-constant-name/type (index 252 name-index 253 descriptor-index)) 254 (:include constant 251 255 (tag 12))) 252 256 name-index … … 369 373 (constant-index entry))) 370 374 371 (defstruct (class-file (:constructor %make-class-file)) 372 constants 375 (defstruct (class-file (:constructor 376 !make-class-file (class superclass access-flags))) 377 (constants (make-pool)) 373 378 access-flags 374 379 class … … 377 382 fields 378 383 methods 379 attributes 380 ) 384 attributes) 381 385 382 386 (defun class-add-field (class field)
Note: See TracChangeset
for help on using the changeset viewer.