[slime-cvs] CVS slime/contrib

[CVS User sboukarev]

Update of /project/slime/cvsroot/slime/contrib
In directory cl-net:/tmp/cvs-serv17756/contrib

Modified Files:
	ChangeLog slime-presentations.el swank-presentations.lisp 
Log Message:
* swank-presentations.lisp (inspect-presentation): Throw an error when
trying to access unrecorded object.
(lookup-presented-object-or-lose): Rename from `get-repl-result'.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2010/03/09 14:10:37	1.354
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2010/03/09 14:42:22	1.355
@@ -1,5 +1,11 @@
 2010-03-09  Stas Boukarev  <stassats at gmail.com>
 
+	* swank-presentations.lisp (inspect-presentation): Throw an error when
+	trying to access unrecorded object.
+	(lookup-presented-object-or-lose): Rename from `get-repl-result'.
+
+2010-03-09  Stas Boukarev  <stassats at gmail.com>
+
 	* slime-repl.el (slime-call-defun): When on defclass insert
 	 (make-instance 'name).
 
--- /project/slime/cvsroot/slime/contrib/slime-presentations.el	2010/02/15 21:42:37	1.28
+++ /project/slime/cvsroot/slime/contrib/slime-presentations.el	2010/03/09 14:42:22	1.29
@@ -632,12 +632,12 @@
 the presented object."
   (let ((id (slime-presentation-id presentation)))
     (etypecase id
-      (number         
+      (number
        ;; Make sure it works even if *read-base* is not 10.
-       (format "(swank:get-repl-result #10r%d)" id))
+       (format "(swank:lookup-presented-object-or-lose %d.)" id))
       (list
        ;; for frame variables and inspector parts
-       (format "(swank:get-repl-result '%s)" id)))))
+       (format "(swank:lookup-presented-object-or-lose '%s)" id)))))
 
 (defun slime-buffer-substring-with-reified-output (start end)
   (let ((str-props (buffer-substring start end))
--- /project/slime/cvsroot/slime/contrib/swank-presentations.lisp	2008/02/21 20:49:10	1.5
+++ /project/slime/cvsroot/slime/contrib/swank-presentations.lisp	2010/03/09 14:42:22	1.6
@@ -81,7 +81,7 @@
             (values (inspector-nth-part part-index) t)
             (values nil nil)))))))
 
-(defslimefun get-repl-result (id)
+(defslimefun lookup-presented-object-or-lose (id)
   "Get the result of the previous REPL evaluation with ID."
   (multiple-value-bind (object foundp) (lookup-presented-object id)
     (cond (foundp object)
@@ -226,7 +226,7 @@
                 (disassemble object)))))
 
 (defslimefun inspect-presentation (id reset-p)
-  (let ((what (lookup-presented-object id)))
+  (let ((what (lookup-presented-object-or-lose id)))
     (when reset-p
       (reset-inspector))
     (inspect-object what)))