Plaster

common-lisp
CL-USER> (defgeneric frob (bar) (:method (bar))) #<STANDARD-GENERIC-FUNCTION COMMON-LISP-USER::FROB (1)> ;;; 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 #<FILTERED-FUNCTIONS:FILTERED-FUNCTION COMMON-LISP-USER::FROB2 (1)>