CL-USER> (defgeneric frob (bar) (:method (bar))) # ;;; BUT CL-USER> (ql:quickload :filtered-functions) CL-USER> (defgeneric frob2 (bar) (:generic-function-class filtered-functions:filtered-function) (:method (bar))) ; in: DEFGENERIC FROB2 ; (#:METHOD-FUNCTION (BAR)) ; ; caught STYLE-WARNING: ; The variable BAR is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition #