tics
  (let ((x (json:decode-json-from-string
            "{\"foo\": [1, 2, 3], \"bar\": true, \"baz\": \"!\",
              \"prototype\": {\"lispPackage\": \"clUser\",
                              \"lispClass\": \"sample\"}}")))
      (with-slots (foo bar) x
        (values x (class-of x) foo bar (slot-exists-p x 'baz)))))
</pre>
<pre class="value">#&lt;A SAMPLE&gt;</pre>
<pre class="value">#&lt;STANDARD-CLASS SAMPLE&gt;</pre>
<pre class="value">#(1 2 3)</pre>
<pre class="value">T</pre>
<pre class="value