 -1
  "Level of nesting in JSON structure.")
</pre>
<pre class="value">LEVEL</pre>

<pre class="in-code">
(defparameter count -1
  "Count of members in JSON structure.")
</pre>
<pre class="value">COUNT</pre>

<pre class="in-code">
(defun format-with-indent (control &amp;rest args)
  (format t "~&amp;~0,1,V,V@A~?" level #\Tab "" control args))
</pre>
<pre class="value">FORMAT-WITH-INDENT</pre>

<pre class="in-code">
(defun report-atom (token)
  (format-with-indent "~Ctoken: ~S~%" #\Tab token)
  'atom)
</pre>