3 (defun funcall-with-tag (tag-spec thunk
)
4 (let ((%yaclml-code% nil
)
5 (%yaclml-indentation-depth%
0))
6 (declare (special %yaclml-code%
))
8 (dolist (i (fold-strings
10 (funcall (gethash (car (ensure-list tag-spec
)) *expanders
*)
11 (append (cdr tag-spec
) (list
15 (write-string i
*yaclml-stream
*)))))