[slime-cvs] CVS update: slime/swank-backend.lisp

[Luke Gorrie]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv28982

Modified Files:
	swank-backend.lisp 
Log Message:
(definterface): Don't use NO-APPLICABLE-METHOD for detail
methods. Instead just define them as regular methods with all argument
types being T. Defimplementation will then replace them by using the
same signature. N-A-M was a stupid idea!

Date: Fri Jul  2 16:50:09 2004
Author: lgorrie

Index: slime/swank-backend.lisp
diff -u slime/swank-backend.lisp:1.58 slime/swank-backend.lisp:1.59
--- slime/swank-backend.lisp:1.58	Sun Jun 27 08:00:30 2004
+++ slime/swank-backend.lisp	Fri Jul  2 16:50:09 2004
@@ -51,11 +51,7 @@
   (check-type documentation string "a documentation string")
   (flet ((gen-default-impl ()
            (let ((received-args (gensym "ARGS-")))
-             `(defmethod no-applicable-method ((#:method
-                                                (eql (function ,name)))
-                                               &rest ,received-args)
-               (destructuring-bind ,args ,received-args
-                 , at default-body)))))
+             `(defmethod ,name ,args , at default-body))))
      `(progn (defgeneric ,name ,args (:documentation ,documentation))
              (pushnew ',name *interface-functions*)
              ,(if (null default-body)