Changeset 14095


Ignore:
Timestamp:
08/15/12 22:16:20 (9 years ago)
Author:
ehuelsmann
Message:

Fix test failures by fixing test incorrectnesses.

File:
1 edited

Legend:

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

    r13594 r14095  
    233233        (jvm::with-code-to-method (file method)
    234234          (jvm::emit 'aload 0)
    235           (jvm::emit-getstatic jvm::+lisp+ "NIL" jvm::+lisp-object+)
    236           (jvm::emit-getstatic jvm::+lisp+ "NIL" jvm::+lisp-object+)
     235          (jvm::emit-getstatic jvm::+lisp+ "NIL" jvm::+lisp-symbol+)
     236          (jvm::emit-getstatic jvm::+lisp+ "NIL" jvm::+lisp-symbol+)
    237237          (jvm::emit-invokespecial-init jvm::+lisp-primitive+
    238238                                        (list jvm::+lisp-object+
     
    242242        (jvm::class-add-method file method)
    243243        (jvm::with-code-to-method (file method)
    244           (jvm::emit-getstatic jvm::+lisp+ "NIL" jvm::+lisp-object+)
     244          (jvm::emit-getstatic jvm::+lisp+ "NIL" jvm::+lisp-symbol+)
    245245          (jvm::emit 'jvm::areturn)))
    246246      (jvm::finalize-class-file file)
     
    261261        (jvm::class-add-method file method)
    262262        (jvm::with-code-to-method (file method)
    263           (jvm::emit-getstatic jvm::+lisp+ "NIL" jvm::+lisp-object+)
     263          (jvm::emit-getstatic jvm::+lisp+ "NIL" jvm::+lisp-symbol+)
    264264          (jvm::emit-putstatic class "N1" jvm::+lisp-object+)
    265265          (jvm::emit 'return)))
     
    295295        (jvm::with-code-to-method (file method)
    296296          (jvm::emit 'aload 0)
    297           (jvm::emit-getstatic jvm::+lisp+ "NIL" jvm::+lisp-object+)
    298           (jvm::emit-getstatic jvm::+lisp+ "NIL" jvm::+lisp-object+)
     297          (jvm::emit-getstatic jvm::+lisp+ "NIL" jvm::+lisp-symbol+)
     298          (jvm::emit-getstatic jvm::+lisp+ "NIL" jvm::+lisp-symbol+)
    299299          (jvm::emit-invokespecial-init jvm::+lisp-primitive+
    300300                                        (list jvm::+lisp-object+
     
    304304        (jvm::class-add-method file method)
    305305        (jvm::with-code-to-method (file method)
    306           (jvm::emit-getstatic jvm::+lisp+ "NIL" jvm::+lisp-object+)
     306          (jvm::emit-getstatic jvm::+lisp+ "NIL" jvm::+lisp-symbol+)
    307307          (jvm::emit 'jvm::areturn)))
    308308      (let ((method (jvm::make-jvm-method "execute" jvm::+lisp-object+
     
    340340    (push jvm::*register* registers))
    341341  (jvm::allocate-register :int)
    342   (push jvm::*register* registers))
     342  (push jvm::*register* registers)
     343        (jvm::emit 'return))
    343344      (jvm::finalize-class-file file)
    344345      (nreverse registers))
     
    366367    (push jvm::*register* registers))
    367368  (jvm::allocate-register :int)
    368   (push jvm::*register* registers))
     369  (push jvm::*register* registers)
     370        (jvm::emit 'return))
    369371      (jvm::finalize-class-file file)
    370372      (nreverse registers))
Note: See TracChangeset for help on using the changeset viewer.