[cl-who-devel] Case sensitive tags with cl-who

[rrl]

Thinking about it again, I think this patch is a bad idea.  It's
possible to have the desired effect without touching the code base
with something like:

(defmacro with-xml ((&key (prologue "<?xml version=\"1.0\"?>")) &body body)
  "Write the xml strings to the standard output."
  `(with-output-to-string (*standard-output*)
     ,(let (*downcase-tokens-p*)
        (macroexpand
         `(with-html-output (*standard-output* nil :prologue ,prologue)
            , at body)))))