It should work, I am quite baffled that it doesn't... It's Ubuntu with sbcl 1.0.18, cl-who 0.11.0 What's funny is that even when I set it to #\" globally and evaluate it in the lisp, it's not enough for hunchentoot to pick it up. I have to evaluate it in the lisp image + put the (setf *attribute-quote-char* #\") in the body of the hunchentoot handler! I tried to put the cl-who prefix to the variable, but it doesn't make any difference. Andrew On Tue, Aug 12, 2008 at 6:21 PM, Jens Teich <info@jensteich.de> wrote:
Andrei Stebakov schrieb:
By default the variable is initialized to #\' If I want to change it to #\" via local binding I still get the single quotes in the resulting string.
(let ((*attribute-quote-char* #\")) (with-html-output-to-string (*standard-output* nil :prologue nil :indent nil) (:html (:head (:title "title") (:meta :name "DESCRIPTION" :content "description") (:meta :name "KEYWORDS" :content "keywords")))))
I get: "<html><head><title>title</title><meta name='DESCRIPTION' content='description' /><meta name='KEYWORDS' content='keywords' /></head></html>"
I get the correct result evaluating exactly your form:
CL-WHO 507 > (let ((*attribute-quote-char* #\")) (with-html-output-to-string (*standard-output* nil :prologue nil :indent nil) (:html (:head (:title "title") (:meta :name "DESCRIPTION" :content "description") (:meta :name "KEYWORDS" :content "keywords"))))) "<html><head><title>title</title><meta name=\"DESCRIPTION\" content=\"description\" /><meta name=\"KEYWORDS\" content=\"keywords\" /></head></html>"
LW 5.1 cl-who 0.11.0 Mac OS X 10.5
Jens _______________________________________________ cl-who-devel site list cl-who-devel@common-lisp.net http://common-lisp.net/mailman/listinfo/cl-who-devel