[hunchentoot-devel] cl-who and case-sensitive XML generation

[Patrick May]

	I'm trying to generate case-sensitive XML from cl-who.  Here's a  
simple example of what I've tried that doesn't work:

(asdf:oos 'asdf:load-op :cl-who)

(let ((cl-who::*downcase-tokens-p* nil))
   (cl-who:with-html-output-to-string (*standard-output*
                                       nil
                                       :indent t)
     (:|Capitalized|
       (:|CapitalizedCamel| :|camelCase| "foo"
         "bar"))))

This outputs:

"
<capitalized>
   <capitalizedcamel camelcase='foo'>
     bar
   </capitalizedcamel>
</capitalized>"

rather than:

"
<Capitalized>
   <CapitalizedCamel camelCase='foo'>
     bar
   </CapitalizedCamel>
</Capitalized>"

Can cl-who do what I need?  If it can, can it also generate double- 
quoted strings ("foo" instead of 'foo')?

	I'm using Clozure and I don't control the XML schema, unfortunately.

Thanks,

Patrick