Changeset 12783


Ignore:
Timestamp:
07/04/10 09:25:15 (13 years ago)
Author:
ehuelsmann
Message:

More fixes from test-writing.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/generic-class-file/abcl/src/org/armedbear/lisp/jvm-class-file.lisp

    r12782 r12783  
    421421        (map-flags (class-file-access-flags class)))
    422422  (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)))
    424425  ;;  (finalize-interfaces)
    425426  (dolist (field (class-file-fields class))
     
    517518
    518519(defun map-flags (flags)
    519   (reduce #'(lambda (x y)
     520  (reduce #'(lambda (y x)
    520521              (logior (or (when (member (car x) flags)
    521522                            (second x))
    522                           0) y)
    523               (logior (or )))
     523                          0) y))
     524          +access-flags-map+
    524525          :initial-value 0))
    525526
Note: See TracChangeset for help on using the changeset viewer.