[slime-cvs] CVS slime

[mkoeppe]

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

Modified Files:
	swank.lisp 
Log Message:
(inspect-presentation): New slimefun.


--- /project/slime/cvsroot/slime/swank.lisp	2007/08/23 17:45:44	1.495
+++ /project/slime/cvsroot/slime/swank.lisp	2007/08/23 22:50:40	1.496
@@ -4780,4 +4780,10 @@
                 (declare (ignore choice id)) 
                 (disassemble object)))))
 
+(defslimefun inspect-presentation (id reset-p)
+  (let ((what (lookup-presented-object id)))
+    (when reset-p
+      (reset-inspector))
+    (inspect-object what)))
+
 ;;; swank.lisp ends here