Changeset 12793
- Timestamp:
- 07/08/10 22:18:06 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/generic-class-file/abcl/src/org/armedbear/lisp/compiler-pass2.lisp
r12792 r12793 207 207 (defconstant +lisp-fixnum+ "Lorg/armedbear/lisp/Fixnum;") 208 208 (defconstant +lisp-fixnum-array+ "[Lorg/armedbear/lisp/Fixnum;") 209 ;(defconstant +lisp-function-proxy-class+210 ; "org/armedbear/lisp/AutoloadedFunctionProxy")211 209 (defconstant +lisp-bignum-class+ "org/armedbear/lisp/Bignum") 212 210 (defconstant +lisp-bignum+ "Lorg/armedbear/lisp/Bignum;") … … 2257 2255 (emit 'dup) 2258 2256 (emit-invokespecial-init class-name '()) 2259 2260 ;(emit 'ldc (pool-string (pathname-name pathname)))2261 ;(emit-invokestatic +fasl-loader-class+ "faslLoadFunction"2262 ;(list +java-string+) +lisp-object+)2263 2264 ; (emit 'ldc (pool-string (file-namestring pathname)))2265 2266 ; (emit-invokestatic +lisp-function-proxy-class+ "loadPreloadedFunction"2267 ; (list +java-string+) +lisp-object+)2268 2257 (emit 'putstatic *this-class* g +lisp-object+) 2269 2258 (setf *static-code* *code*)
Note: See TracChangeset
for help on using the changeset viewer.