[cl-json-devel] Slot name with digits raise condition UNBOUND-SLOT

[Олег]

(json:with-decoder-simple-clos-semantics
(let ((json:*json-symbols-package* nil))
(let ((x (json:decode-json-from-string
"{\"foo1\": [1, 2, 3], \"bar1\": true,
\"baz1\": \"!\"}")))
(with-slots (foo1 bar1 baz1) x
(values x foo1 bar1 baz1)))))

The slot FOO1 is unbound in the object #<#<JSON:FLUID-CLASS NIL
{1004085F33}>
{1003CAFB43}>.
[Condition of type UNBOUND-SLOT]

Олег.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cl-json-devel/attachments/20130122/6410fb84/attachment.html>