(find-method #'print-object '() (list (list (find-class t)) (list (find-class t)))) does not signal an error

[Michał "phoe" Herda]

(defvar *bad-specializers* (list (list (find-class t)) (list (find-class t))))

The value of *BAD-SPECIALIZERS* is a list of lists of specializers, not a list of specializers. I expected FIND-METHOD to signal an error when given that value as its specializer argument, but it instead returned a method.

(find-method #'print-object '() *bad-specializers*)
;=> #<STANDARD-METHOD COMMON-LISP:PRINT-OBJECT (T T) {1000539213}>

CLHS FIND-METHOD, http://clhs.lisp.se/Body/f_find_m.htm :

"The specializers argument contains the parameter specializers for the method."

[Jan Moringen (scymtym)]

In 052b6abc60d2f2c3b65a30dcfb1ee17c06d70e4b