[slime-cvs] CVS slime

[mbaringer]

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

Modified Files:
	slime.el 
Log Message:
(slime-inspect): If a prefix argument is provided pass
:eval nil to swank:init-inspector.


--- /project/slime/cvsroot/slime/slime.el	2006/12/06 11:50:36	1.697
+++ /project/slime/cvsroot/slime/slime.el	2006/12/07 11:08:57	1.698
@@ -9020,9 +9020,15 @@
 (defvar slime-saved-window-config)
 
 (defun slime-inspect (form &optional no-reset)
-  "Eval an expression and inspect the result."
-  (interactive (list (slime-read-object "Inspect value (evaluated): ")))
-  (slime-eval-async `(swank:init-inspector ,form ,(not no-reset))
+  "Eval an expression and inspect the result.
+
+If called with a prefix argument the value will not be evaluated."
+  (interactive (list (slime-read-object (if current-prefix-arg
+                                            "Inspect value: "
+                                            "Inspect value (evaluated): "))))
+  (slime-eval-async `(swank:init-inspector ,form 
+                                           :reset ,(not no-reset)
+                                           :eval ,(null current-prefix-arg))
                     'slime-open-inspector))
 
 (defun slime-read-object (prompt)