[slime-cvs] CVS slime

[heller]

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

Modified Files:
	swank-lispworks.lisp 
Log Message:
(inspect-for-emacs): Don't use defimplementation here.


--- /project/slime/cvsroot/slime/swank-lispworks.lisp	2006/03/22 16:40:01	1.83
+++ /project/slime/cvsroot/slime/swank-lispworks.lisp	2006/08/09 16:55:48	1.84
@@ -632,19 +632,19 @@
 (defimplementation make-default-inspector ()
   (make-instance 'lispworks-inspector))
 
-(defimplementation inspect-for-emacs ((o t) (inspector lispworks-inspector))
+(defmethod inspect-for-emacs ((o t) (inspector lispworks-inspector))
   (declare (ignore inspector))
   (lispworks-inspect o))
 
-(defimplementation inspect-for-emacs ((o function) 
-                                      (inspector lispworks-inspector))
+(defmethod inspect-for-emacs ((o function) 
+                              (inspector lispworks-inspector))
   (declare (ignore inspector))
   (lispworks-inspect o))
 
 ;; FIXME: slot-boundp-using-class in LW works with names so we can't
 ;; use our method in swank.lisp.
-(defimplementation inspect-for-emacs ((o standard-object) 
-                                      (inspector lispworks-inspector))
+(defmethod inspect-for-emacs ((o standard-object) 
+                              (inspector lispworks-inspector))
   (declare (ignore inspector))
   (lispworks-inspect o))