oexpand-1
  '(simple-json-bind (foo bar) s
     (format t "Foo is ~A.~%Bar is ~A.~%" foo bar))))
</pre>
<pre class="output">(LET ((#:G762 (JSON:CURRENT-DECODER))</pre>
<pre class="output">      FOO BAR)</pre>
<pre class="output">  (JSON:BIND-CUSTOM-VARS</pre>
<pre class="output">      (:INTERNAL-DECODER #:G762</pre>
<pre class="output">       :BEGINNING-OF-OBJECT (CONSTANTLY T)</pre>
<pre class="output">       :OBJECT-KEY</pre>
<pre class="output">         (LAMBDA (JSON-STRING)</pre>
<pre class="output">   