[slime-cvs] CVS slime

[heller]

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

Modified Files:
	swank.lisp slime.el ChangeLog 
Log Message:
Simplify the inspector.

* swank.lisp (inspect-object): Ignore the title value returned
from backends.

* slime.el (slime-open-inspector): Updated accordingly.



--- /project/slime/cvsroot/slime/swank.lisp	2007/12/02 08:44:33	1.521
+++ /project/slime/cvsroot/slime/swank.lisp	2007/12/13 15:09:47	1.522
@@ -2967,11 +2967,10 @@
   (let ((*print-pretty* nil)            ; print everything in the same line
         (*print-circle* t)
         (*print-readably* nil))
-    (multiple-value-bind (title content) (inspect-for-emacs object inspector)
-      (list :title title
-            :string-representation
-            (with-output-to-string (stream)
-              (print-unreadable-object (object stream :type t :identity t)))
+    (multiple-value-bind (_ content) (inspect-for-emacs object inspector)
+      (declare (ignore _))
+      (list :title (with-output-to-string (s)
+                     (print-unreadable-object (object s :type t :identity t)))
             :id (assign-index object *inspectee-parts*)
             :content (inspector-content-for-emacs content)))))
 
--- /project/slime/cvsroot/slime/slime.el	2007/12/13 15:06:51	1.884
+++ /project/slime/cvsroot/slime/slime.el	2007/12/13 15:09:47	1.885
@@ -7498,16 +7498,14 @@
     (setq slime-buffer-connection (slime-current-connection))
     (let ((inhibit-read-only t))
       (erase-buffer)
-      (destructuring-bind (&key string-representation id title content) inspected-parts
+      (destructuring-bind (&key id title content) inspected-parts
         (macrolet ((fontify (face string) 
                             `(slime-inspector-fontify ,face ,string)))
           (slime-propertize-region
               (list 'slime-part-number id 
                  'mouse-face 'highlight
                  'face 'slime-inspector-value-face)
-            (insert string-representation))
-          (insert ":\n   ")
-          (insert (fontify topline title))
+            (insert title))
           (while (eq (char-before) ?\n)
             (backward-delete-char 1))
           (insert "\n" (fontify label "--------------------") "\n")
--- /project/slime/cvsroot/slime/ChangeLog	2007/12/13 15:06:51	1.1256
+++ /project/slime/cvsroot/slime/ChangeLog	2007/12/13 15:09:47	1.1257
@@ -1,7 +1,16 @@
 2007-12-04  Helmut Eller  <heller at common-lisp.net>
 
+	Simplify the inspector.
+
+	* swank.lisp (inspect-object): Ignore the title value returned
+	from backends.
+
+	* slime.el (slime-open-inspector): Updated accordingly.
+
+2007-12-04  Helmut Eller  <heller at common-lisp.net>
+
 	Fix slime-list-thread selector.
-	
+
 	* slime.el (slime-list-threads): Wait for the result before
 	continuing.
 
@@ -20,7 +29,7 @@
 	(setup-server): Store open sockets in *listener-sockets*.
 
 2007-12-02  Helmut Eller  <heller at common-lisp.net>
-	
+
 	Add hook to customize the region used by C-c C-c.
 	Useful to recognize block declarations in CMUCL sources.