<p> (json:with-decoder-simple-clos-semantics<br />  (let ((json:*json-symbols-package* nil))<br />    (let ((x (json:decode-json-from-string<br />               "{\"foo1\": [1, 2, 3], \"bar1\": true,<br />                 \"baz1\": \"!\"}")))<br />      (with-slots (foo1 bar1 baz1) x<br />        (values x foo1 bar1 baz1)))))<br /><br /></p>
<p>The slot FOO1 is unbound in the object #<#<JSON:FLUID-CLASS NIL<br />                                           {1004085F33}><br />                                         {1003CAFB43}>.<br />   [Condition of type UNBOUND-SLOT]</p>
<div id="editor_compose_signature">
<p>Олег.</p>
</div>