Changeset 12683

Timestamp:

05/15/10 14:14:28 (13 years ago)

Author:

ehuelsmann

Message:

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

File:

• trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp (modified) (1 diff)

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

@@ -2073 +2073 @@
    symbol *declared-symbols* ht g
    (cond ((null (symbol-package symbol))
-    (setf g (if *file-compilation*
-          (declare-object-as-string symbol +lisp-symbol+
+          (setf g (if *file-compilation*
+                      (declare-object-as-string symbol +lisp-symbol+
                                                 +lisp-symbol-class+)
-          (declare-object symbol +lisp-symbol+
-                                      +lisp-symbol-class+))))
+                      (declare-object symbol +lisp-symbol+
+                                      +lisp-symbol-class+))
+                (gethash symbol ht) g))
    (t
           (let (saved-code)