[slime-cvs] CVS slime

[mbaringer]

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

Modified Files:
	swank.lisp 
Log Message:
(init-inspector): Added eval parameter. If NIL we
don't eval FORM but limit our selves to cl:read'ing it and
inspecting that value.


--- /project/slime/cvsroot/slime/swank.lisp	2006/12/06 11:36:10	1.421
+++ /project/slime/cvsroot/slime/swank.lisp	2006/12/07 11:09:19	1.422
@@ -4763,11 +4763,15 @@
         *inspectee-actions* (make-array 10 :adjustable t :fill-pointer 0)
         *inspector-history* (make-array 10 :adjustable t :fill-pointer 0)))
 
-(defslimefun init-inspector (string &optional (reset t))
+(defslimefun init-inspector (string &key (reset t) (eval t))
   (with-buffer-syntax ()
     (when reset
       (reset-inspector))
-    (inspect-object (eval (read-from-string string)))))
+    (let* ((form (read-from-string string))
+           (value (if eval
+                      (eval form)
+                      form)))
+      (inspect-object value))))
   
 (defun print-part-to-string (value)
   (let ((string (to-string value))