[slime-cvs] CVS slime

[heller]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv5527

Modified Files:
	swank-backend.lisp 
Log Message:
Some fixes to make it actually work.


--- /project/slime/cvsroot/slime/swank-backend.lisp	2006/08/09 16:34:15	1.99
+++ /project/slime/cvsroot/slime/swank-backend.lisp	2006/08/09 17:08:01	1.100
@@ -114,8 +114,8 @@
   (check-type documentation string "a documentation string")
   (flet ((gen-default-impl ()
            `(defmethod no-applicable-method ((_gf (eql #',name)) &rest _rargs)
-              (declare (ignore _))
-              (destructuring-bind ,args rargs
+              (declare (ignore _gf))
+              (destructuring-bind ,args _rargs
                 , at default-body))))
     `(progn (defgeneric ,name ,args (:documentation ,documentation))
             (pushnew ',name *interface-functions*)
@@ -729,6 +729,7 @@
   "Return an inspector object suitable for passing to inspect-for-emacs.")
 
 (defgeneric inspect-for-emacs (object inspector)
+  (:documentation
    "Explain to Emacs how to inspect OBJECT.
 
 The argument INSPECTOR is an object representing how to get at
@@ -754,7 +755,7 @@
  (:action label lambda) - Render LABEL (a text string) which when
  clicked will call LAMBDA.
 
- NIL - do nothing.")
+ NIL - do nothing."))
 
 (defmethod inspect-for-emacs ((object t) (inspector t))
   "Generic method for inspecting any kind of object.