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)