Ignore:
Timestamp:
08/13/10 23:31:55 (13 years ago)
Author:
ehuelsmann
Message:

Use the new generator's WRITE-CLASS-FILE function,
axing other WRITE-* methods from pass2.

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r12896 r12897  
    122122                            (:constructor %make-abcl-class-file))
    123123  pathname ; pathname of output file
     124  class-name
    124125  lambda-name
    125126  lambda-list ; as advertised
    … …  
    159160                         (make-unique-class-name)))
    160161         (class-file (%make-abcl-class-file :pathname pathname
    161                                             :class class-name
     162                                            :class class-name ; to be finalized
     163                                            :class-name class-name
    162164                                            :lambda-name lambda-name
    163                                             :lambda-list lambda-list)))
     165                                            :lambda-list lambda-list
     166                                            :access-flags '(:public :final))))
    164167    (when *file-compilation*
    165168      (let ((source-attribute
Note: See TracChangeset for help on using the changeset viewer.