imple-clos-semantics
  (let ((json:*json-symbols-package* nil))
    (let ((x (json:decode-json-from-string
               "{\"foo\": [1, 2, 3], \"bar\": true, \"baz\": \"!\",
                 \"prototype\":
                    {\"lispSuperclasses\": [\"sample2\"]}}")))
      (with-slots (foo frob) x
        (values x foo frob)))))
</pre>
<pre class="value">#&lt;AN INSTANCE OF ANONYMOUS FLUID-CLASS&gt;</pre>
<pre class="value">#(1 2 3)</pre>
<pre class="value">XYZZY</pre>
</div>

<p>If the prototype has both