Changeset 12842


Ignore:
Timestamp:
08/01/10 10:00:01 (12 years ago)
Author:
ehuelsmann
Message:

Two fixes from test-writing.

File:
1 edited

Legend:

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

    r12840 r12842  
    632632  attributes)
    633633
    634 (defun make-field (name type &key (flags '(:public)))
     634(defun !make-field (name type &key (flags '(:public)))
    635635 
    636636  (%make-field :access-flags flags
     
    650650          (map-flags (field-access-flags field))
    651651          (field-descriptor field)
    652           (pool-add-utf8 pool (internal-field-type (field-descriptor field)))
     652          (pool-add-utf8 pool (internal-field-ref (field-descriptor field)))
    653653          (field-name field)
    654654          (pool-add-utf8 pool (field-name field))))
Note: See TracChangeset for help on using the changeset viewer.