Changeset 12783
- Timestamp:
- 07/04/10 09:25:15 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/generic-class-file/abcl/src/org/armedbear/lisp/jvm-class-file.lisp
r12782 r12783 421 421 (map-flags (class-file-access-flags class))) 422 422 (setf (class-file-class class) 423 (pool-add-class (class-name-internal (class-file-class class)))) 423 (pool-add-class (class-file-constants class) 424 (class-file-class class))) 424 425 ;; (finalize-interfaces) 425 426 (dolist (field (class-file-fields class)) … … 517 518 518 519 (defun map-flags (flags) 519 (reduce #'(lambda ( x y)520 (reduce #'(lambda (y x) 520 521 (logior (or (when (member (car x) flags) 521 522 (second x)) 522 0) y) 523 (logior (or )))523 0) y)) 524 +access-flags-map+ 524 525 :initial-value 0)) 525 526
Note: See TracChangeset
for help on using the changeset viewer.