Index: contrib/slime-presentations.el
===================================================================
RCS file: /project/slime/cvsroot/slime/contrib/slime-presentations.el,v
retrieving revision 1.8
diff -u -u -r1.8 slime-presentations.el
--- contrib/slime-presentations.el	20 Sep 2007 14:55:53 -0000	1.8
+++ contrib/slime-presentations.el	3 Oct 2007 22:52:05 -0000
@@ -44,6 +44,18 @@
 (make-variable-buffer-local
  (defvar slime-presentation-start-to-point (make-hash-table)))
 
+(defun slime-presentation-inspect ()
+  (interactive
+   (list (or (multiple-value-bind (presentation start end)
+                 (slime-presentation-around-point (point))
+               (when presentation
+                 ;; Point is within a presentation, so don't prompt, just 
+                 ;; inspect the presented object; don't play DWIM.
+                 (slime-presentation-expression presentation)))
+             (slime-read-from-minibuffer "Inspect value (evaluated): "
+                                         (slime-sexp-at-point)))))
+  (slime-eval-async `(swank:init-inspector ,string) 'slime-open-inspector))
+
 (defun slime-mark-presentation-start (id &optional target)
   "Mark the beginning of a presentation with the given ID.
 TARGET can be nil (regular process output) or :repl-result."