[slime-cvs] CVS update: slime/swank.lisp

[Marco Baringer]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv31305

Modified Files:
	swank.lisp 
Log Message:
minor inspector cleanups

Date: Wed Oct  6 14:39:36 2004
Author: mbaringer

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.247 slime/swank.lisp:1.248
--- slime/swank.lisp:1.247	Wed Oct  6 10:59:02 2004
+++ slime/swank.lisp	Wed Oct  6 14:39:35 2004
@@ -2658,7 +2658,7 @@
         (class (when (find-class symbol nil)
                  `("It names the class " (:value ,(find-class symbol) ,(inspector-princ (class-name (find-class symbol))))
                    " " (:action ,(format nil "[remove name ~S (does not affect class object)]" symbol)
-                                (lambda () (setf (find-class symbol) nil)))))))
+                                ,(lambda () (setf (find-class symbol) nil)))))))
     (values "A symbol."
             `("Its name is: " (:value ,(symbol-name symbol))
               (:newline)
@@ -2715,10 +2715,7 @@
             "Its argument list is: " ,(inspector-princ (arglist f))
             (:newline)
             ,@(when (documentation f t)
-                `("Documentation:" (:newline) ,(documentation f t) (:newline)))
-            ,@(when (and (function-name f)
-                         
-                         )))))
+                `("Documentation:" (:newline) ,(documentation f t) (:newline))))))
 
 (defun method-specializers-for-inspect (method)
   "Return a \"pretty\" list of the method's specializers. Normal
@@ -2816,7 +2813,7 @@
 
 (defmethod inspect-for-emacs ((class standard-class) (inspector t))
   (declare (ignore inspector))
-  (values "A class."
+  (values "A stadard class."
           `("Name: " (:value ,(class-name class))
             (:newline)
             "Super classes: " ,@(common-seperated-spec (swank-mop:class-direct-superclasses class))
@@ -2962,7 +2959,7 @@
   (declare (ignore inspector))
   (values "A number."
           (append 
-           `(,(format nil "Value: ~D = #x~X = #o~O = ~E" i i i i) (:newline))
+           `(,(format nil "Value: ~D = #x~X = #o~O = #b~,,' ,8B = ~E" i i i i i) (:newline))
            (if (< -1 i char-code-limit)
                (label-value-line "Corresponding character" (code-char i)))
            (label-value-line "Length" (integer-length i))