Here's a patch that's related to the one I sent in at
http://article.gmane.org/gmane.lisp.steel-bank.devel/3584 . I hadn't
tried using (:method ...) methods in the defgeneric form until today,
and when I did I ran into the same sort of warning about #'foo.
To see the glitch in action:
(funcall (compile nil '(lambda ()
(flet ((foo () nil))
(defgeneric foo ()
(:method () t))))))
The attached patch fixes it and adds a test case.