[Bese-devel] Bug in aserve backend

[Janis Dzerins]

Marco Baringer wrote:
> 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?

Ok, that clears my confusion now.  I hope I did not confuse anybody.

-- 
Janis Dzerins

   Common Lisp -- you get more than what you see.