Changeset 12683


Ignore:
Timestamp:
05/15/10 14:14:28 (12 years ago)
Author:
ehuelsmann
Message:

Save a few bytes in our JAR by re-using serialized
anonymous symbols, when multiple references are required.

File:
1 edited

Legend:

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

    r12681 r12683  
    20732073   symbol *declared-symbols* ht g
    20742074   (cond ((null (symbol-package symbol))
    2075     (setf g (if *file-compilation*
    2076           (declare-object-as-string symbol +lisp-symbol+
     2075          (setf g (if *file-compilation*
     2076                      (declare-object-as-string symbol +lisp-symbol+
    20772077                                                +lisp-symbol-class+)
    2078           (declare-object symbol +lisp-symbol+
    2079                                       +lisp-symbol-class+))))
     2078                      (declare-object symbol +lisp-symbol+
     2079                                      +lisp-symbol-class+))
     2080                (gethash symbol ht) g))
    20802081   (t
    20812082          (let (saved-code)
Note: See TracChangeset for help on using the changeset viewer.