Macro: EMIT-ATTRIBUTE

Source

(defmacro emit-attribute (name value)
  (rebinding (value)
    `(case ,value
      ((t)
       (princ #\Space *yaclml-stream*)
       (princ ,name *yaclml-stream*)
       (princ "=\"" *yaclml-stream*)
       (princ ,name *yaclml-stream*)
       (princ #\" *yaclml-stream*))
      ((nil) nil)
      (t
       (princ #\Space *yaclml-stream*)
       (princ ,name *yaclml-stream*)
       (princ "=\"" *yaclml-stream*)
       (emit-attribute-value ,value)
       (princ #\" *yaclml-stream*)))))