[slime-cvs] CVS slime/contrib

[mbaringer]

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

Modified Files:
	swank-fancy-inspector.lisp 
Log Message:
drop second argument from inspect-for-emacs


--- /project/slime/cvsroot/slime/contrib/swank-fancy-inspector.lisp	2008/02/04 17:35:03	1.6
+++ /project/slime/cvsroot/slime/contrib/swank-fancy-inspector.lisp	2008/02/04 17:59:49	1.7
@@ -126,7 +126,7 @@
   (let ((class (class-of object)))
     (values "An object."
             `("Class: " (:value ,class) (:newline)
-              ,@(all-slots-for-inspector object inspector)))))
+              ,@(all-slots-for-inspector object)))))
 
 (defvar *gf-method-getter* 'methods-by-applicability
   "This function is called to get the methods of a generic function.
@@ -186,8 +186,8 @@
                    `(" " (:action "[make unbound]"
                           ,(lambda () (swank-mop:slot-makunbound-using-class class object slot)))))))))
 
-(defgeneric all-slots-for-inspector (object inspector)
-  (:method ((object standard-object) inspector)
+(defgeneric all-slots-for-inspector (object)
+  (:method ((object standard-object))
     (declare (ignore inspector))
     (append '("--------------------" (:newline)
               "All Slots:" (:newline))
@@ -247,7 +247,7 @@
                             (remove-method gf m))))
 	      (:newline)))
       `((:newline))
-      (all-slots-for-inspector gf inspector)))))
+      (all-slots-for-inspector gf)))))
 
 (defmethod inspect-for-emacs ((method standard-method))
   (values "A method." 
@@ -267,7 +267,7 @@
             (:newline)
             "Method function: " (:value ,(swank-mop:method-function method))
             (:newline)
-            ,@(all-slots-for-inspector method inspector))))
+            ,@(all-slots-for-inspector method))))
 
 (defmethod inspect-for-emacs ((class standard-class))
   (values "A class."
@@ -326,7 +326,7 @@
                                `(:value ,(swank-mop:class-prototype class))
                                '"#<N/A (class not finalized)>")
             (:newline)
-            ,@(all-slots-for-inspector class inspector))))
+            ,@(all-slots-for-inspector class))))
 
 (defmethod inspect-for-emacs ((slot swank-mop:standard-slot-definition))
   (values "A slot."
@@ -342,7 +342,7 @@
                              "#<unspecified>") (:newline)
             "Init function: " (:value ,(swank-mop:slot-definition-initfunction slot))            
             (:newline)
-            ,@(all-slots-for-inspector slot inspector))))
+            ,@(all-slots-for-inspector slot))))
 
 
 ;; Wrapper structure over the list of symbols of a package that should
@@ -451,7 +451,6 @@
               (:newline) (:newline)
               ,@(make-symbols-listing grouping-kind symbols)))))
 
-
 (defmethod inspect-for-emacs ((package package))
   (let ((package-name         (package-name package))
         (package-nicknames    (package-nicknames package))
@@ -691,14 +690,10 @@
 (defvar *fancy-inpector-undo-list* nil)
 
 (defslimefun fancy-inspector-init ()
-  (let ((i *default-inspector*))
-    (push (lambda () (setq *default-inspector* i))
-	  *fancy-inpector-undo-list*))
-  (setq *default-inspector* (make-instance 'fancy-inspector))
   t)
 
 (defslimefun fancy-inspector-unload ()
   (loop while *fancy-inpector-undo-list* do
 	(funcall (pop *fancy-inpector-undo-list*))))
 
-(provide :swank-fancy-inspector)
\ No newline at end of file
+(provide :swank-fancy-inspector)