[slime-cvs] CVS update: slime/slime.el

[Matthias Koeppe]

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

Modified Files:
	slime.el 
Log Message:
(slime-read-object): Handle ids that are conses.
Patch by "Thas" on #lisp.

Date: Tue Aug  9 21:34:59 2005
Author: mkoeppe

Index: slime/slime.el
diff -u slime/slime.el:1.519 slime/slime.el:1.520
--- slime/slime.el:1.519	Mon Aug  8 18:31:47 2005
+++ slime/slime.el	Tue Aug  9 21:34:55 2005
@@ -7749,7 +7749,9 @@
 (defun slime-read-object (prompt)
   (let ((id (get-text-property (point) 'slime-repl-old-output)))
     (if id
-        `(swank:init-inspector ,(format "(swank:get-repl-result %S)" id))
+        (if (consp id)
+            `(swank:init-inspector ,(format "(cl:nth #10r%d (swank:get-repl-result #10r%d))" (cdr id) (car id)))
+          `(swank:init-inspector ,(format "(swank:get-repl-result %S)" id)))
       `(swank:init-inspector
         ,(slime-read-from-minibuffer "Inspect value (evaluated): "
 				     (slime-sexp-at-point))))))