==== cl-who/doc/index.html#1 - cl-who/doc/index.html ====
541a542,550
> <p><br>[Special variable]
> <br><a class=none name="*downcase-tag*"><b>*downcase-tag*</b></a>
> 
> <blockquote><br>
>   If NIL, keyword symbol representing a tagname will not be
> automatically converted to lowercase.  It is useful when one needs to
> output case sensitive xml tags. Default to T.
> </blockquote>
> 
==== cl-who/packages.lisp#1 - cl-who/packages.lisp ====
37a38
>            #:*downcase-tag*
60a62
>            "*DOWNCASE-TAG*"
==== cl-who/who.lisp#1 - cl-who/who.lisp ====
49a50,54
> (defvar *downcase-tag* T
>   "If NIL, keyword symbol representing a tagname will not be
> automatically converted to lowercase.  It is useful when one needs to
> output case sensitive xml tags.")
> 
241a247
>   (let ((tag (if *downcase-tag* (string-downcase tag) (string tag))))
244,245c250,251
<        ;; indent by *INDENT* spaces
<        (list +newline+ (n-spaces *indent*)))
---
>          ;; indent by *INDENT* spaces
>          (list +newline+ (n-spaces *indent*)))
247c253
<      (list "<" (string-downcase tag))
---
>      (list "<" tag)
252,266c258,272
<        (append
<         (list ">")
<         ;; now hand over the tag's body to TREE-TO-TEMPLATE, increase
<         ;; *INDENT* by 2 if necessary
<         (if *indent*
<           (let ((*indent* (+ 2 *indent*)))
<             (funcall body-fn body))
<           (funcall body-fn body))
<         (if *indent*
<           ;; indentation
<           (list +newline+ (n-spaces *indent*)))
<         ;; closing tag
<         (list "</" (string-downcase tag) ">"))
<        ;; no body, so no closing tag
<        (list *empty-tag-end*))))
---
>          (append
>           (list ">")
>           ;; now hand over the tag's body to TREE-TO-TEMPLATE, increase
>           ;; *INDENT* by 2 if necessary
>           (if *indent*
>               (let ((*indent* (+ 2 *indent*)))
>                 (funcall body-fn body))
>               (funcall body-fn body))
>           (if *indent*
>               ;; indentation
>               (list +newline+ (n-spaces *indent*)))
>           ;; closing tag
>           (list "</" tag ">"))
>          ;; no body, so no closing tag
>          (list *empty-tag-end*)))))