[Bese-devel] Using araneida
Marco Baringer
mb at bese.it
Fri May 6 15:34:27 UTC 2005
Brian Downing <bdowning at lavos.net> writes:
> On Sun, May 01, 2005 at 11:32:50AM -0500, Brian Downing wrote:
>> --- orig/src/backend/araneida.lisp
>> +++ mod/src/backend/araneida.lisp
>> @@ -152,7 +152,7 @@
>> (let (content-type content-length expires cache-control location refresh
>> pragma set-cookie conditional www-authenticate last-modified extra-headers)
>> (dolist* (header-cons (headers r))
>> - (case (car header-cons)
>> + (case (intern (car header-cons) "KEYWORD")
>> (:content-type (setf content-type (cdr header-cons)))
>> (:content-length (setf content-length (cdr header-cons)))
>> (:expires (setf expires (cdr header-cons)))
>
> This won't work, of course - I don't know what I was thinking.
I just applied what I believe to be a "proper" fix to this (ucw
doesn't try to use keywords for header names anymore so i was able to
delete some code while i was in that file): ucw--dev--0.3--patch-410.
can you try it and tell me what you think?
p.s. - the log and the diffs for that patch can be viewed at:
http://common-lisp.net/cgi-bin/archzoom.cgi/ucw-2004@common-lisp.net/ucw--dev--0.3--patch-410?log
--
-Marco
Ring the bells that still can ring.
Forget the perfect offering.
There is a crack in everything.
That's how the light gets in.
-Leonard Cohen
More information about the bese-devel
mailing list