[armedbear-cvs] r12842 - branches/generic-class-file/abcl/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Sun Aug  1 06:00:01 2010
New Revision: 12842

Log:
Two fixes from test-writing.

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

Modified: branches/generic-class-file/abcl/src/org/armedbear/lisp/jvm-class-file.lisp
==============================================================================
--- branches/generic-class-file/abcl/src/org/armedbear/lisp/jvm-class-file.lisp	(original)
+++ branches/generic-class-file/abcl/src/org/armedbear/lisp/jvm-class-file.lisp	Sun Aug  1 06:00:01 2010
@@ -631,7 +631,7 @@
   descriptor
   attributes)
 
-(defun make-field (name type &key (flags '(:public)))
+(defun !make-field (name type &key (flags '(:public)))
   
   (%make-field :access-flags flags
                :name name
@@ -649,7 +649,7 @@
     (setf (field-access-flags field)
           (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))))
   (finalize-attributes (field-attributes field) nil class))