RE: find-method

["pierce" <pierce@at-mail-server.vitro.com>]

>> Is the 3rd argument suppose to be a list of class names?

No, The third argument to find-method is a list of Class Metaobjects

>> Is find-method the correct fn to be calling? Yes

For Example:

Welcome to Macintosh Common Lisp Version 2.0f2!
? (defclass foo () ())
#<STANDARD-CLASS FOO>
? (defmethod m1 ((foo foo)))
#<STANDARD-METHOD M1 (FOO)>
? (find-method (fdefinition 'm1) nil `(,(find-class 'foo)) nil)
#<STANDARD-METHOD M1 (FOO)>
? (defclass bar () ())
#<STANDARD-CLASS BAR>
? (find-method (fdefinition 'm1) nil `(,(find-class 'bar)) nil)
NIL
?