[armedbear-cvs] r11651 - trunk/abcl/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Mon Feb  9 21:56:01 2009
New Revision: 11651

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

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

Modified: trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	Mon Feb  9 21:56:01 2009
@@ -2069,7 +2069,7 @@
    symbol *declared-symbols* ht g
    (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
 	  (let ((*code* *static-code*)