[Bese-devel] Bug in aserve backend

[Marco Baringer]

Janis Dzerins <jdz at dir.lv> writes:

> Why not like this:
>
> (defmethod get-header ((response aserver-response) header-name)
>   (net.aserve:reply-header-slot-value
>    (request response)
>    (intern (string-upcase header-name) :keyword)))
>
> (defmethod (setf get-header) (value (response aserver-response) header-name)
>   (let ((header (intern (string-upcase header-name) :keyword)))
>     (if (eq :date header)
>         (error "Can't update Date header.")
>         (setf (net.aserve:reply-header-slot-value (request response)
>                                                   header)
>               value))))
>
> ?
>
> (Ok, there most probably is a problem with Allegro's "modern" mode, but your
> version is not really better in this respect.)

interning and symbol name case mapping issues aside, isn't the point
of this patch that reply-header-slot-value only works if certain
arguments are compile time constant keywords? am i getting confused?

-- 
-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