Changeset 12782

Timestamp:

07/04/10 08:45:13 (13 years ago)

Author:

ehuelsmann

Message:

More fixes from test-writing.

File:

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

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

@@ -248 +248 @@
   (%make-constant-double/long 5 index value))
 
-(defstruct (constant-name/type (:include constant
+(defstruct (constant-name/type (:constructor
+                                make-constant-name/type (index
+                                                         name-index
+                                                         descriptor-index))
+                               (:include constant
                                          (tag 12)))
   name-index
@@ -369 +373 @@
     (constant-index entry)))
 
-(defstruct (class-file (:constructor %make-class-file))
-  constants
+(defstruct (class-file (:constructor
+                        !make-class-file (class superclass access-flags)))
+  (constants (make-pool))
   access-flags
   class
@@ -377 +382 @@
   fields
   methods
-  attributes
-  )
+  attributes)
 
 (defun class-add-field (class field)