[slime-cvs] CVS slime

[alendvai]

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

Modified Files:
	swank.lisp 
Log Message:
FIX: drop extra "Slots: " from standard-object's inspector presentation


--- /project/slime/cvsroot/slime/swank.lisp	2007/01/03 11:09:29	1.447
+++ /project/slime/cvsroot/slime/swank.lisp	2007/01/03 11:18:44	1.448
@@ -4426,12 +4426,11 @@
 	  (swank-mop:method-qualifiers method)
 	  (method-specializers-for-inspect method)))
 
-(defmethod inspect-for-emacs ((o standard-object) inspector)
-  (let ((c (class-of o)))
+(defmethod inspect-for-emacs ((object standard-object) inspector)
+  (let ((class (class-of object)))
     (values "An object."
-            `("Class: " (:value ,c) (:newline)
-              "Slots:" (:newline)
-              ,@(all-slots-for-inspector o inspector)))))
+            `("Class: " (:value ,class) (:newline)
+              ,@(all-slots-for-inspector object inspector)))))
 
 (defvar *gf-method-getter* 'methods-by-applicability
   "This function is called to get the methods of a generic function.
@@ -4496,7 +4495,7 @@
 (defgeneric all-slots-for-inspector (object inspector)
   (:method ((object standard-object) inspector)
     (declare (ignore inspector))
-    (append '("------------------------------" (:newline)
+    (append '("--------------------" (:newline)
               "All Slots:" (:newline))
             (let* ((class (class-of object))
                    (direct-slots (swank-mop:class-direct-slots class))