Index: swank-backend.lisp
===================================================================
RCS file: /project/slime/cvsroot/slime/swank-backend.lisp,v
retrieving revision 1.98
diff -u -r1.98 swank-backend.lisp
--- swank-backend.lisp	12 Apr 2006 08:43:55 -0000	1.98
+++ swank-backend.lisp	19 Jun 2006 10:56:37 -0000
@@ -113,7 +113,9 @@
 Backends implement these functions using DEFIMPLEMENTATION."
   (check-type documentation string "a documentation string")
   (flet ((gen-default-impl ()
-           `(defmethod ,name ,args ,@default-body)))
+           `(defmethod no-applicable-method ((gf (eql #',name)) &rest gf-args)
+             (flet ((default-fn ,args ,@default-body))
+               (apply #'default-fn gf-args)))))
     `(progn (defgeneric ,name ,args (:documentation ,documentation))
             (pushnew ',name *interface-functions*)
             ,(if (null default-body)