Function: EMIT-OPEN-TAG

Documentation

Emit the code required to print an open tag whose name is NAME and with the attributes ATTRIBUTES. ATTRIBUTES is expected to be an even long, setf-like list of name-value pairs defining the attributes.

Source

(defun emit-open-tag (name &rest attributes)
  "Emit the code required to print an open tag whose name is NAME and
with the attributes ATTRIBUTES. ATTRIBUTES is expected to be an even
long, setf-like list of name-value pairs defining the attributes."
  (incf %yaclml-indentation-depth% 2)
  (emit-princ "<")
  (emit-princ name)
  (mapc #'emit-princ-attributes attributes)
  (emit-indentation)
  (emit-princ ">"))