[cl-json-devel] Escaping of symbols in hash tables

Hi, Is this intentional? (This tested against a brand-new checkout from the darcs repo.) ---- * (in-package :json) #<PACKAGE "JSON"> * (encode-json-to-string 'x) "\"X\"" * (make-hash-table) #<HASH-TABLE :TEST EQL :COUNT 0 {40148169}> * (setf (gethash 'x *) 5) 5 * (encode-json-to-string **) "{\"\"X\"\":5}" ---- Dump this out to a stream, and you get {""X"":5} which isn't so useful. I suspect it's because the symbol is encoded to "X", and then wrapped in quotes anyway. I thought I'd mail the list before attempting to fix and submit a patch. Opinions? -R