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

[Matthias Koeppe]

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

Modified Files:
	slime.el 
Log Message:
(slime-presentation-expression): Remove handling of cons
presentation-ids.

Date: Wed Sep 14 22:17:43 2005
Author: mkoeppe

Index: slime/slime.el
diff -u slime/slime.el:1.544 slime/slime.el:1.545
--- slime/slime.el:1.544	Tue Sep 13 07:37:16 2005
+++ slime/slime.el	Wed Sep 14 22:17:42 2005
@@ -3158,14 +3158,7 @@
 the presented object."
   (let ((id (slime-presentation-id presentation)))
     ;; Make sure it works even if *read-base* is not 10.
-    (cond
-     ((and (consp id) (integerp (car id)) (integerp (cdr id)))
-      (format "(swank:get-repl-result '(#10r%d . #10r%d))" (car id) (cdr id)))
-     ((integerp id)
-      (format "(swank:get-repl-result #10r%d)" id))
-     (t
-      (slime-prin1-to-string 
-       `(swank:get-repl-result ',id))))))
+    (format "(swank:get-repl-result #10r%d)" id)))
 
 (defun slime-buffer-substring-with-reified-output (start end)
   (let ((str-props (buffer-substring start end))