22 Jan
2013
22 Jan
'13
7:28 a.m.
(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]
Олег.