Function: EMIT-ATTRIBUTE-VALUE

Source

(defun emit-attribute-value (value)
  (if (listp value)
      (iter (for el in value)
            (unless (first-time-p)
              (princ #\Space *yaclml-stream*))
            (write-as-html (princ-to-string el) :stream *yaclml-stream*))
      (write-as-html (princ-to-string value) :stream *yaclml-stream*)))