Changeset 12309

Timestamp:

12/25/09 22:34:53 (11 years ago)

Author:

ehuelsmann

Message:

Turn an inline named class name into a string constant.

File:

• trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp (modified) (2 diffs)

trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

@@ -221 +221 @@
 (defconstant +lisp-fixnum+ "Lorg/armedbear/lisp/Fixnum;")
 (defconstant +lisp-fixnum-array+ "[Lorg/armedbear/lisp/Fixnum;")
+(defconstant +lisp-function-proxy-class+
+  "org/armedbear/lisp/AutoloadedFunctionProxy")
 (defconstant +lisp-bignum-class+ "org/armedbear/lisp/Bignum")
 (defconstant +lisp-bignum+ "Lorg/armedbear/lisp/Bignum;")
@@ -2071 +2073 @@
      (declare-field g +lisp-object+ +field-access-default+)
      (emit 'ldc (pool-string (file-namestring pathname)))
-     (emit-invokestatic "org/armedbear/lisp/AutoloadedFunctionProxy" "loadPreloadedFunction"
+     (emit-invokestatic +lisp-function-proxy-class+ "loadPreloadedFunction"
       (list +java-string+) +lisp-object+)
      (emit 'putstatic *this-class* g +lisp-object+)