Changeset 12708


Ignore:
Timestamp:
05/19/10 20:02:19 (12 years ago)
Author:
ehuelsmann
Message:

Remove unused function DECLARE-LAMBDA.

File:
1 edited

Legend:

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

    r12707 r12708  
    23942394      (setf *static-code* *code*)
    23952395      g)))
    2396 
    2397 (defun declare-lambda (obj)
    2398   (let (saved-code
    2399         (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 'ldc
    2406             (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))
    24182396
    24192397(defknown compile-constant (t t t) t)
Note: See TracChangeset for help on using the changeset viewer.