(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]
Олег.