[Bese-devel] Using araneida

[Brian Downing]

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.

-bcd