[climacs-cvs] CVS climacs

[rstrandh]

Update of /project/climacs/cvsroot/climacs
In directory clnet:/tmp/cvs-serv14856

Modified Files:
	lisp-syntax.lisp 
Log Message:
Convert uninterned symbols to objects. 



--- /project/climacs/cvsroot/climacs/lisp-syntax.lisp	2006/09/16 12:11:11	1.118
+++ /project/climacs/cvsroot/climacs/lisp-syntax.lisp	2006/10/28 06:48:08	1.119
@@ -2571,6 +2571,9 @@
     (when (not (eval-feature-conditional conditional syntax))
       (token-to-object syntax (third-noncomment (children token))))))
 
+(defmethod token-to-object (syntax (token uninterned-symbol-form) &key)
+  (read-from-string (token-string syntax token)))
+
 (defmethod token-to-object (syntax (token undefined-reader-macro-form) &key)
   ;; ???
   nil)