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

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