        (LET ((LISP-STRING</pre>
<pre class="output">                  (FUNCALL JSON:*JSON-IDENTIFIER-NAME-TO-LISP*</pre>
<pre class="output">                           JSON-STRING)))</pre>
<pre class="output">             (JSON:SET-CUSTOM-VARS</pre>
<pre class="output">                 :OBJECT-VALUE</pre>
<pre class="output">                   (COND ((STRING= LISP-STRING "FOO")</pre>
<pre class="output">                          (LAMBDA (VALUE) (SETQ FOO VALUE)))</pre>
<pre class="output">                 