Changeset 12795


Ignore:
Timestamp:
07/08/10 22:50:02 (12 years ago)
Author:
ehuelsmann
Message:

CLASS-NAME integration for +lisp-integer+.

Location:
branches/generic-class-file/abcl/src/org/armedbear/lisp
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/generic-class-file/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

    r12794 r12795  
    202202(defconstant +lisp-object-array+ "[Lorg/armedbear/lisp/LispObject;")
    203203(defconstant +closure-binding-array+ "[Lorg/armedbear/lisp/ClosureBinding;")
    204 (defconstant +lisp-integer-class+ "org/armedbear/lisp/LispInteger")
    205 (defconstant +lisp-integer+ "Lorg/armedbear/lisp/LispInteger;")
    206204(defconstant +lisp-fixnum-class+ "org/armedbear/lisp/Fixnum")
    207205(defconstant +lisp-fixnum+ "Lorg/armedbear/lisp/Fixnum;")
     
    577575  `((:boolean . ,+lisp-object+)
    578576    (:char    . ,+lisp-character+)
    579     (:int     . ,+!lisp-integer+)
    580     (:long    . ,+!lisp-integer+)
     577    (:int     . ,+lisp-integer+)
     578    (:long    . ,+lisp-integer+)
    581579    (:float   . ,+!lisp-single-float+)
    582580    (:double  . ,+!lisp-double-float+))
     
    21082106
    21092107(defvar serialization-table
    2110   `((integer "INT" ,#'eql ,#'serialize-integer ,+!lisp-integer+)
     2108  `((integer "INT" ,#'eql ,#'serialize-integer ,+lisp-integer+)
    21112109    (character "CHR" ,#'eql ,#'serialize-character ,+lisp-character+)
    21122110    (single-float "FLT" ,#'eql ,#'serialize-float ,+!lisp-single-float+)
  • branches/generic-class-file/abcl/src/org/armedbear/lisp/jvm-class-file.lisp

    r12794 r12795  
    113113(define-class-name +lisp-thread+ "org.armedbear.lisp.LispThread")
    114114(define-class-name +lisp-closure-binding+ "org.armedbear.lisp.ClosureBinding")
    115 (define-class-name +!lisp-integer+ "org.armedbear.lisp.LispInteger")
     115(define-class-name +lisp-integer+ "org.armedbear.lisp.LispInteger")
    116116(define-class-name +!lisp-fixnum+ "org.armedbear.lisp.Fixnum")
    117117(define-class-name +!lisp-bignum+ "org.armedbear.lisp.Bignum")
Note: See TracChangeset for help on using the changeset viewer.