Ignore:
Timestamp:
11/25/10 13:15:18 (11 years ago)
Author:
ehuelsmann
Message:

Fix ANSI regressions caused by the implementation
of the new class writer.

Found by: Mark Evenson
Patch by: me

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

    r13043 r13046  
    796796(defun make-constructor (class)
    797797  (let* ((*compiler-debug* nil)
    798          (method (make-method :constructor :void nil
    799                               :flags '(:public)))
     798         (method (make-jvm-method :constructor :void nil
     799          :flags '(:public)))
    800800         ;; We don't normally need to see debugging output for constructors.
    801801         (super (class-file-superclass class))
     
    910910(defun make-static-initializer (class)
    911911  (let ((*compiler-debug* nil)
    912         (method (make-method :static-initializer
    913                             :void nil :flags '(:public :static))))
     912        (method (make-jvm-method :static-initializer
     913        :void nil :flags '(:public :static))))
    914914    ;; We don't normally need to see debugging output for <clinit>.
    915915    (with-code-to-method (class method)
     
    67626762
    67636763         (arg-types (analyze-args compiland))
    6764          (method (make-method "execute" +lisp-object+ arg-types
    6765                                :flags '(:final :public)))
     6764         (method (make-jvm-method "execute" +lisp-object+ arg-types
     6765          :flags '(:final :public)))
    67666766         (*visible-variables* *visible-variables*)
    67676767
Note: See TracChangeset for help on using the changeset viewer.