Changeset 12944


Ignore:
Timestamp:
10/03/10 09:19:24 (11 years ago)
Author:
ehuelsmann
Message:

Fix tests: rename ":class-constructor" to ":static-initializer"; that's
its new name.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/test/lisp/abcl/class-file.lisp

    r12942 r12944  
    167167      (jvm::class-add-method file (jvm::make-method "MBD" nil jvm::+lisp-object+))
    168168      (jvm::class-add-method file (jvm::make-method :constructor :void nil))
    169       (jvm::class-add-method file (jvm::make-method :class-constructor :void nil))
     169      (jvm::class-add-method file (jvm::make-method :static-initializer :void nil))
    170170      T)
    171171  T)
     
    188188    (let* ((class (jvm::make-class-name "org/armedbear/lisp/gm_1"))
    189189           (file (jvm::make-class-file class jvm::+lisp-object+ '(:public)))
    190            (method (jvm::make-method :class-constructor :void nil
     190           (method (jvm::make-method :static-initializer :void nil
    191191                                      :flags '(:static))))
    192192      (jvm::class-add-method file method)
     
    258258      (jvm::class-add-field file (jvm::make-field "N1" jvm::+lisp-object+
    259259                                                  :flags '(:static :private)))
    260       (let ((method (jvm::make-method :class-constructor :void nil :flags '(:static))))
     260      (let ((method (jvm::make-method :static-initializer :void nil :flags '(:static))))
    261261        (jvm::class-add-method file method)
    262262        (jvm::with-code-to-method (file method)
     
    324324    (let* ((class (jvm::make-class-name "org/armedbear/lisp/gm_6"))
    325325           (file (jvm::make-class-file class jvm::+lisp-object+ '(:public)))
    326            (method (jvm::make-method :class-constructor :void nil
     326           (method (jvm::make-method :static-initializer :void nil
    327327              :flags '(:static)))
    328328     (registers nil))
     
    348348    (let* ((class (jvm::make-class-name "org/armedbear/lisp/gm_7"))
    349349           (file (jvm::make-class-file class jvm::+lisp-object+ '(:public)))
    350            (method1 (jvm::make-method :class-constructor :void nil
     350           (method1 (jvm::make-method :static-initializer :void nil
    351351               :flags '(:static)))
    352352     (method2 (jvm::make-method "method2" :void nil))
Note: See TracChangeset for help on using the changeset viewer.