Changeset 12842 for branches/generic-class-file/abcl/src/org/armedbear/lisp/jvm-class-file.lisp

Timestamp:

08/01/10 10:00:01 (13 years ago)

Author:

ehuelsmann

Message:

Two fixes from test-writing.

File:

• branches/generic-class-file/abcl/src/org/armedbear/lisp/jvm-class-file.lisp (modified) (2 diffs)

branches/generic-class-file/abcl/src/org/armedbear/lisp/jvm-class-file.lisp

@@ -632 +632 @@
   attributes)
 
-(defun make-field (name type &key (flags '(:public)))
+(defun !make-field (name type &key (flags '(:public)))
   
   (%make-field :access-flags flags
@@ -650 +650 @@
           (map-flags (field-access-flags field))
           (field-descriptor field)
-          (pool-add-utf8 pool (internal-field-type (field-descriptor field)))
+          (pool-add-utf8 pool (internal-field-ref (field-descriptor field)))
           (field-name field)
           (pool-add-utf8 pool (field-name field))))