Function: EMIT-BODY

Documentation

Traverse body and emit the corresponding code. Every form in body is analyzed according to the following rules: cons whose car is not a known expander - code which should be included with no further analysis. cons whose car is a known expander - simply call the expander function with the cdr of the cons as the arg. yaclml-constant-p - print the constant (after escape-as-html) to *yaclml-stream*. cons whose car is YACLML-QUOTE - emit-body on every element of the cdr.

Source

(defun emit-body (body)
  "Traverse body and emit the corresponding code. Every form in body
is analyzed according to the following rules:

cons whose car is not a known expander - code which should be included
with no further analysis.

cons whose car is a known expander - simply call the expander function
with the cdr of the cons as the arg.

yaclml-constant-p - print the constant (after escape-as-html) to
*yaclml-stream*.

cons whose car is YACLML-QUOTE - emit-body on every element of the
cdr.
"
  (dolist (form body)
    (emit-form form)))