Defines a new tag handlec named TAG-NAME.
(defmacro def-tag-handler (tag-name (tag) &body body)
"Defines a new tag handlec named TAG-NAME."
`(progn
(push (cons ',tag-name (lambda (,tag)
(declare (ignorable ,tag))
,@body))
*tal-tag-handlers*)
',tag-name))Source Context