        ((STRING= LISP-STRING "BAR")</pre>
<pre class="output">                          (LAMBDA (VALUE) (SETQ BAR VALUE)))</pre>
<pre class="output">                         (T (CONSTANTLY T))))))</pre>
<pre class="output">       :END-OF-OBJECT (CONSTANTLY T))</pre>
<pre class="output">    (JSON:DECODE-JSON S))</pre>
<pre class="output">  (FORMAT T "Foo is ~A.~%Bar is ~A.~%" FOO BAR))</pre>

<pre class="in-code">
(json:with-decoder-simple-list-semantics
  (with-input-from-string
      (s "{\"foo\": [1, 2, 