n be written with the help of <code class="api-name">*internal-decoder*</code>.</p>

<div class="example">
<pre class="in-code">
(defmacro simple-json-bind ((&amp;rest vars) stream &amp;body body)
  (let ((cur-dec (gensym))
        (key-handler
         `(lambda (json-string)
            (let ((lisp-string
                   (funcall json:*json-identifier-name-to-lisp*
                            json-string)))
              ;; On recognizing a variable name, the key handler sets
              ;; the value 