Ignore:
Timestamp:
11/25/10 13:52:51 (11 years ago)
Author:
ehuelsmann
Message:

Backport r13046; ANSI test regressions.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/0.23.x/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

    r13044 r13047  
    797797  (let* ((*compiler-debug* nil)
    798798         ;; We don't normally need to see debugging output for constructors.
    799          (method (make-method :constructor :void nil
    800                               :flags '(:public)))
     799         (method (make-jvm-method :constructor :void nil
     800                                  :flags '(:public)))
    801801         (code (method-add-code method))
    802802         req-params-register
     
    906906    (setf (code-code code) *code*)
    907907    method))
    908 
    909908
    910909(defvar *source-line-number* nil)
     
    67556754
    67566755         (arg-types (analyze-args compiland))
    6757          (method (make-method "execute" +lisp-object+ arg-types
     6756         (method (make-jvm-method "execute" +lisp-object+ arg-types
    67586757                               :flags '(:final :public)))
    67596758         (code (method-add-code method))
Note: See TracChangeset for help on using the changeset viewer.