[slime-cvs] CVS slime

[heller]

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

Modified Files:
	swank-scl.lisp swank-corman.lisp swank-cmucl.lisp 
	swank-abcl.lisp swank-openmcl.lisp 
Log Message:
(inspect-for-emacs): Don't use defimplementation for real generics.


--- /project/slime/cvsroot/slime/swank-scl.lisp	2006/06/11 11:02:08	1.8
+++ /project/slime/cvsroot/slime/swank-scl.lisp	2006/08/09 17:01:13	1.9
@@ -1744,7 +1744,7 @@
                                   :key #'symbol-value)))
           (format t ", type: ~A" type-symbol))))))
 
-(defimplementation inspect-for-emacs ((o t) (inspector scl-inspector))
+(defmethod inspect-for-emacs ((o t) (inspector scl-inspector))
   (cond ((di::indirect-value-cell-p o)
          (values (format nil "~A is a value cell." o)
                  `("Value: " (:value ,(c:value-cell-ref o)))))
--- /project/slime/cvsroot/slime/swank-corman.lisp	2006/04/18 07:47:09	1.7
+++ /project/slime/cvsroot/slime/swank-corman.lisp	2006/08/09 17:01:13	1.8
@@ -402,7 +402,7 @@
               collect (funcall callback e)
               collect ", ")))
 
-(defimplementation inspect-for-emacs ((class standard-class)
+(defmethod inspect-for-emacs ((class standard-class)
                               (inspector corman-inspector))
   (declare (ignore inspector))
   (values "A class."
@@ -441,7 +441,7 @@
                   '("#<N/A (class not finalized)>"))
             (:newline))))
 
-(defimplementation inspect-for-emacs ((slot cons) (inspector corman-inspector))
+(defmethod inspect-for-emacs ((slot cons) (inspector corman-inspector))
   ;; Inspects slot definitions
   (declare (ignore corman-inspector))
   (if (eq (car slot) :name)
@@ -460,7 +460,7 @@
                                              (:newline)))
       (call-next-method)))
   
-(defimplementation inspect-for-emacs ((pathname pathnames::pathname-internal)
+(defmethod inspect-for-emacs ((pathname pathnames::pathname-internal)
                               inspector)
   (declare (ignore inspector))
   (values (if (wild-pathname-p pathname)
@@ -478,7 +478,7 @@
                               (not (probe-file pathname)))
                     (label-value-line "Truename" (truename pathname))))))
 
-(defimplementation inspect-for-emacs ((o t) (inspector corman-inspector))
+(defmethod inspect-for-emacs ((o t) (inspector corman-inspector))
   (cond ((cl::structurep o) (inspect-structure o))
 	(t (call-next-method))))
 
--- /project/slime/cvsroot/slime/swank-cmucl.lisp	2006/03/22 16:40:01	1.160
+++ /project/slime/cvsroot/slime/swank-cmucl.lisp	2006/08/09 17:01:13	1.161
@@ -1863,7 +1863,7 @@
                                   :key #'symbol-value)))
           (format t ", type: ~A" type-symbol))))))
 
-(defimplementation inspect-for-emacs ((o t) (inspector cmucl-inspector))
+(defmethod inspect-for-emacs ((o t) (inspector cmucl-inspector))
   (cond ((di::indirect-value-cell-p o)
          (values (format nil "~A is a value cell." o)
                  `("Value: " (:value ,(c:value-cell-ref o)))))
--- /project/slime/cvsroot/slime/swank-abcl.lisp	2006/06/10 03:27:03	1.38
+++ /project/slime/cvsroot/slime/swank-abcl.lisp	2006/08/09 17:01:13	1.39
@@ -435,7 +435,7 @@
 
 #|
 
-(defimplementation inspect-for-emacs ((o t) (inspector abcl-inspector))
+(defmethod inspect-for-emacs ((o t) (inspector abcl-inspector))
   (let* ((class (class-of o))
          (slots (mop::class-slots class)))
     (values (format nil "~A~%   is a ~A" o class)
--- /project/slime/cvsroot/slime/swank-openmcl.lisp	2006/04/20 09:11:11	1.108
+++ /project/slime/cvsroot/slime/swank-openmcl.lisp	2006/08/09 17:01:13	1.109
@@ -741,7 +741,7 @@
 	(string (gethash typecode *value2tag*))
 	(string (nth typecode '(tag-fixnum tag-list tag-misc tag-imm))))))
 
-(defimplementation inspect-for-emacs ((o t) (inspector openmcl-inspector))
+(defmethod inspect-for-emacs ((o t) (inspector openmcl-inspector))
   (declare (ignore inspector))
   (let* ((i (inspector::make-inspector o))
 	 (count (inspector::compute-line-count i))