[hunchentoot-devel] Different accessors in define-easy-handler

[Edi Weitz]

Thanks, this is finally in the repository now.  Sorry for the delay.

On Wed, Dec 15, 2010 at 12:07 PM, Nicolas Neuss <neuss at kit.edu> wrote:
> Hello,
>
> since some time I use a patch for DEFINE-EASY-HANDLER which makes it
> work correctly with multiple accessors (I hope).  Here it is.
>
> (I am not quite sure if it has not been corrected yet.  The patch is
> against Hunchentoot-1.1.1 from Quicklisp.)
>
> Thanks,
> Nicolas
>
>
> --- easy-handlers.lisp~ 2010-11-30 10:34:27.000000000 +0100
> +++ easy-handlers.lisp  2010-11-30 10:46:39.000000000 +0100
> @@ -288,8 +288,11 @@
>               `(progn
>                  (setq *easy-handler-alist*
>                        (delete-if (lambda (list)
> -                                    (or (equal ,uri (first list))
> -                                        (eq ',name (third list))))
> +                                    (and (or (equal ,uri (first list))
> +                                             (eq ',name (third list)))
> +                                         (or (eq ,acceptor-names t)
> +                                             (intersection ,acceptor-names
> +                                                           (second list)))))
>                                   *easy-handler-alist*))
>                  (push (list ,uri ,acceptor-names ',name) *easy-handler-alist*)))))
>        (defun ,name (&key ,@(loop for part in lambda-list
>
> _______________________________________________
> tbnl-devel site list
> tbnl-devel at common-lisp.net
> http://common-lisp.net/mailman/listinfo/tbnl-devel
>
>