[armedbear-cvs] r12795 - branches/generic-class-file/abcl/src/org/armedbear/lisp

Erik Huelsmann ehuelsmann at common-lisp.net
Thu Jul 8 22:50:03 UTC 2010


Author: ehuelsmann
Date: Thu Jul  8 18:50:02 2010
New Revision: 12795

Log:
CLASS-NAME integration for +lisp-integer+.

Modified:
   branches/generic-class-file/abcl/src/org/armedbear/lisp/compiler-pass2.lisp
   branches/generic-class-file/abcl/src/org/armedbear/lisp/jvm-class-file.lisp

Modified: branches/generic-class-file/abcl/src/org/armedbear/lisp/compiler-pass2.lisp
==============================================================================
--- branches/generic-class-file/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	(original)
+++ branches/generic-class-file/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	Thu Jul  8 18:50:02 2010
@@ -201,8 +201,6 @@
 
 (defconstant +lisp-object-array+ "[Lorg/armedbear/lisp/LispObject;")
 (defconstant +closure-binding-array+ "[Lorg/armedbear/lisp/ClosureBinding;")
-(defconstant +lisp-integer-class+ "org/armedbear/lisp/LispInteger")
-(defconstant +lisp-integer+ "Lorg/armedbear/lisp/LispInteger;")
 (defconstant +lisp-fixnum-class+ "org/armedbear/lisp/Fixnum")
 (defconstant +lisp-fixnum+ "Lorg/armedbear/lisp/Fixnum;")
 (defconstant +lisp-fixnum-array+ "[Lorg/armedbear/lisp/Fixnum;")
@@ -576,8 +574,8 @@
 (defvar rep-classes
   `((:boolean . ,+lisp-object+)
     (:char    . ,+lisp-character+)
-    (:int     . ,+!lisp-integer+)
-    (:long    . ,+!lisp-integer+)
+    (:int     . ,+lisp-integer+)
+    (:long    . ,+lisp-integer+)
     (:float   . ,+!lisp-single-float+)
     (:double  . ,+!lisp-double-float+))
   "Lists the class on which to call the `getInstance' method on,
@@ -2107,7 +2105,7 @@
                           +lisp-symbol+)))))
 
 (defvar serialization-table
-  `((integer "INT" ,#'eql ,#'serialize-integer ,+!lisp-integer+)
+  `((integer "INT" ,#'eql ,#'serialize-integer ,+lisp-integer+)
     (character "CHR" ,#'eql ,#'serialize-character ,+lisp-character+)
     (single-float "FLT" ,#'eql ,#'serialize-float ,+!lisp-single-float+)
     (double-float "DBL" ,#'eql ,#'serialize-double ,+!lisp-double-float+)

Modified: branches/generic-class-file/abcl/src/org/armedbear/lisp/jvm-class-file.lisp
==============================================================================
--- branches/generic-class-file/abcl/src/org/armedbear/lisp/jvm-class-file.lisp	(original)
+++ branches/generic-class-file/abcl/src/org/armedbear/lisp/jvm-class-file.lisp	Thu Jul  8 18:50:02 2010
@@ -112,7 +112,7 @@
 (define-class-name +lisp-symbol+ "org.armedbear.lisp.Symbol")
 (define-class-name +lisp-thread+ "org.armedbear.lisp.LispThread")
 (define-class-name +lisp-closure-binding+ "org.armedbear.lisp.ClosureBinding")
-(define-class-name +!lisp-integer+ "org.armedbear.lisp.LispInteger")
+(define-class-name +lisp-integer+ "org.armedbear.lisp.LispInteger")
 (define-class-name +!lisp-fixnum+ "org.armedbear.lisp.Fixnum")
 (define-class-name +!lisp-bignum+ "org.armedbear.lisp.Bignum")
 (define-class-name +!lisp-single-float+ "org.armedbear.lisp.SingleFloat")




More information about the armedbear-cvs mailing list