Thanks, this is finally in the repository now. Sorry for the delay. On Wed, Dec 15, 2010 at 12:07 PM, Nicolas Neuss <neuss@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@common-lisp.net http://common-lisp.net/mailman/listinfo/tbnl-devel