Changeset 12782


Ignore:
Timestamp:
07/04/10 08:45:13 (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

    r12781 r12782  
    248248  (%make-constant-double/long 5 index value))
    249249
    250 (defstruct (constant-name/type (:include constant
     250(defstruct (constant-name/type (:constructor
     251                                make-constant-name/type (index
     252                                                         name-index
     253                                                         descriptor-index))
     254                               (:include constant
    251255                                         (tag 12)))
    252256  name-index
     
    369373    (constant-index entry)))
    370374
    371 (defstruct (class-file (:constructor %make-class-file))
    372   constants
     375(defstruct (class-file (:constructor
     376                        !make-class-file (class superclass access-flags)))
     377  (constants (make-pool))
    373378  access-flags
    374379  class
     
    377382  fields
    378383  methods
    379   attributes
    380   )
     384  attributes)
    381385
    382386(defun class-add-field (class field)
Note: See TracChangeset for help on using the changeset viewer.