[cl-who-devel] Changing attribute-quote-char

Tue Aug 12 22:40:03 UTC 2008

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 at 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 at common-lisp.net
> http://common-lisp.net/mailman/listinfo/cl-who-devel
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cl-who-devel/attachments/20080812/d7a30bf8/attachment.html>

[cl-who-devel] Changing *attribute-quote-char*

[cl-who-devel] Changing attribute-quote-char