Changeset 12944

Timestamp:

10/03/10 09:19:24 (12 years ago)

Author:

ehuelsmann

Message:

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

File:

• trunk/abcl/test/lisp/abcl/class-file.lisp (modified) (5 diffs)

trunk/abcl/test/lisp/abcl/class-file.lisp

@@ -167 +167 @@
       (jvm::class-add-method file (jvm::make-method "MBD" nil jvm::+lisp-object+))
       (jvm::class-add-method file (jvm::make-method :constructor :void nil))
-      (jvm::class-add-method file (jvm::make-method :class-constructor :void nil))
+      (jvm::class-add-method file (jvm::make-method :static-initializer :void nil))
       T)
   T)
@@ -188 +188 @@
     (let* ((class (jvm::make-class-name "org/armedbear/lisp/gm_1"))
            (file (jvm::make-class-file class jvm::+lisp-object+ '(:public)))
-           (method (jvm::make-method :class-constructor :void nil
+           (method (jvm::make-method :static-initializer :void nil
                                       :flags '(:static))))
       (jvm::class-add-method file method)
@@ -258 +258 @@
       (jvm::class-add-field file (jvm::make-field "N1" jvm::+lisp-object+
                                                   :flags '(:static :private)))
-      (let ((method (jvm::make-method :class-constructor :void nil :flags '(:static))))
+      (let ((method (jvm::make-method :static-initializer :void nil :flags '(:static))))
         (jvm::class-add-method file method)
         (jvm::with-code-to-method (file method)
@@ -324 +324 @@
     (let* ((class (jvm::make-class-name "org/armedbear/lisp/gm_6"))
            (file (jvm::make-class-file class jvm::+lisp-object+ '(:public)))
-           (method (jvm::make-method :class-constructor :void nil
+           (method (jvm::make-method :static-initializer :void nil
               :flags '(:static)))
      (registers nil))
@@ -348 +348 @@
     (let* ((class (jvm::make-class-name "org/armedbear/lisp/gm_7"))
            (file (jvm::make-class-file class jvm::+lisp-object+ '(:public)))
-           (method1 (jvm::make-method :class-constructor :void nil
+           (method1 (jvm::make-method :static-initializer :void nil
                :flags '(:static)))
      (method2 (jvm::make-method "method2" :void nil))