From 249a8366f17d67b9b7e0b668d0b854d48e22d117 Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Wed, 5 Mar 2014 11:00:20 +0000 Subject: [PATCH] use CALL-NEXT-METHOD rather than CLASS-OF for NEXT slot filling --- accept-specializer.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/accept-specializer.lisp b/accept-specializer.lisp index a72b159..3dd7ce7 100644 --- a/accept-specializer.lisp +++ b/accept-specializer.lisp @@ -117,7 +117,7 @@ (defmethod generalizer-of-using-class ((gf accept-generic-function) (arg tbnl:request)) (make-instance 'accept-generalizer :header (tbnl:header-in :accept arg) - :next (class-of arg))) + :next (call-next-method))) (defmethod generalizer-equal-hash-key ((gf accept-generic-function) (g accept-generalizer)) `(accept-generalizer ,(header g))) @@ -193,7 +193,7 @@ (defmethod generalizer-of-using-class ((gf accept-generic-function) (s string)) (make-instance 'accept-generalizer :header s - :next (class-of s))) + :next (call-next-method))) (defmethod specializer-accepts-p ((s accept-specializer) (string string)) (q-ok (media-type s) (parse-accept-string string))) -- 2.39.5