
<pre class="value">REPORT-ATOM</pre>

<pre class="in-code">
(defun report-push ()
  (incf level)
  (setq count 0)
  (format-with-indent "beginning of aggregate~%"))
</pre>
<pre class="value">REPORT-PUSH</pre>

<pre class="in-code">
(defun report-member (member)
  (format-with-indent "~:R member: ~A~%"
                      (incf count) member))
</pre>
<pre class="value">REPORT-MEMBER</pre>

<pre class="in-code">
(defun report-pop ()
  (format-with-indent "end of aggregate~%")
  (list 'aggregate count))
</p