Commit 6b1c4c43 authored by Robert Strandh's avatar Robert Strandh

Convert uninterned symbols to objects.

parent e838097d
......@@ -2571,6 +2571,9 @@ object. Otherwise, nil will be returned.")
(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)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment