(keyword name)
(string (nth-value 0 (intern (symbol-name-default-case name) :keyword)))
(symbol (nth-value 0 (intern (symbol-name name) :keyword)))))
(keyword name)
(string (nth-value 0 (intern (symbol-name-default-case name) :keyword)))
(symbol (nth-value 0 (intern (symbol-name name) :keyword)))))