Changeset 12708 for trunk/abcl/src/org/armedbear
- Timestamp:
- 05/19/10 20:02:19 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp
r12707 r12708 2394 2394 (setf *static-code* *code*) 2395 2395 g))) 2396 2397 (defun declare-lambda (obj)2398 (let (saved-code2399 (g (symbol-name (gensym "LAMBDA"))))2400 (let* ((*print-level* nil)2401 (*print-length* nil)2402 (s (format nil "~S" obj))2403 (*code* (if *declare-inline* *code* *static-code*)))2404 (declare-field g +lisp-object+ +field-access-private+)2405 (emit 'ldc2406 (pool-string s))2407 (emit-invokestatic +lisp-class+ "readObjectFromString"2408 (list +java-string+) +lisp-object+)2409 (emit-invokestatic +lisp-class+ "coerceToFunction"2410 (lisp-object-arg-types 1) +lisp-object+)2411 (emit 'putstatic *this-class* g +lisp-object+)2412 (if *declare-inline*2413 (setf saved-code *code*)2414 (setf *static-code* *code*)))2415 (when *declare-inline*2416 (setf *code* saved-code))2417 g))2418 2396 2419 2397 (defknown compile-constant (t t t) t)
Note: See TracChangeset
for help on using the changeset viewer.