Index: /trunk/source/lib/macros.lisp
===================================================================
--- /trunk/source/lib/macros.lisp	(revision 14255)
+++ /trunk/source/lib/macros.lisp	(revision 14256)
@@ -1939,4 +1939,5 @@
                                         (next-method-p () (%next-method-p ,methvar)))
                                    (declare (inline call-next-method next-method-p))
+                                   (declare (ftype (function (&rest t)) ,name))
                                    ,@inner-decls
                                    ,@body)))))