Changeset 11651 for trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

Timestamp:

02/09/09 21:56:01 (14 years ago)

Author:

ehuelsmann

Message:

Followup from last commit: add the Symbol type to DECLARE-OBJECT-AS-STRING too.

File:

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

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

@@ -2070 +2070 @@
    (cond ((null (symbol-package symbol))
     (setf g (if *compile-file-truename*
-          (declare-object-as-string symbol)
+          (declare-object-as-string symbol +lisp-symbol+)
           (declare-object symbol +lisp-symbol+))))
    (t