Changeset 12309


Ignore:
Timestamp:
12/25/09 22:34:53 (11 years ago)
Author:
ehuelsmann
Message:

Turn an inline named class name into a string constant.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

    r12306 r12309  
    221221(defconstant +lisp-fixnum+ "Lorg/armedbear/lisp/Fixnum;")
    222222(defconstant +lisp-fixnum-array+ "[Lorg/armedbear/lisp/Fixnum;")
     223(defconstant +lisp-function-proxy-class+
     224  "org/armedbear/lisp/AutoloadedFunctionProxy")
    223225(defconstant +lisp-bignum-class+ "org/armedbear/lisp/Bignum")
    224226(defconstant +lisp-bignum+ "Lorg/armedbear/lisp/Bignum;")
     
    20712073     (declare-field g +lisp-object+ +field-access-default+)
    20722074     (emit 'ldc (pool-string (file-namestring pathname)))
    2073      (emit-invokestatic "org/armedbear/lisp/AutoloadedFunctionProxy" "loadPreloadedFunction"
     2075     (emit-invokestatic +lisp-function-proxy-class+ "loadPreloadedFunction"
    20742076      (list +java-string+) +lisp-object+)
    20752077     (emit 'putstatic *this-class* g +lisp-object+)
Note: See TracChangeset for help on using the changeset viewer.