[slime-cvs] CVS slime

[alendvai]

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

Modified Files:
	slime.el 
Log Message:
FIX: operate the inspector in the debug thread when started from sldb


--- /project/slime/cvsroot/slime/slime.el	2006/12/19 09:58:52	1.709
+++ /project/slime/cvsroot/slime/slime.el	2006/12/19 10:09:56	1.710
@@ -8690,7 +8690,9 @@
   (let ((frame (sldb-frame-number-at-point))
         (var (sldb-var-number-at-point)))
     (slime-eval-async `(swank:inspect-frame-var ,frame ,var) 
-                      'slime-open-inspector)))
+                      (with-lexical-bindings (slime-current-thread)
+                        (lambda (thing)
+                          (slime-open-inspector thing :thread slime-current-thread))))))
 
 (defun sldb-list-locals ()
   "List local variables in selected frame."
@@ -9076,8 +9078,10 @@
                                             "Inspect value (evaluated): "))))
   (slime-eval-async `(swank:init-inspector ,form
                                            :reset ,(not no-reset)
-                                           :eval ,(null current-prefix-arg))
-                    'slime-open-inspector))
+                                           :eval ,eval)
+                    (with-lexical-bindings (thread)
+                      (lambda (thing)
+                        (slime-open-inspector thing :thread thread)))))
 
 (defun slime-read-object (prompt)
   "Read a Common Lisp expression from the minibuffer, providing
@@ -9113,6 +9117,8 @@
 Optionally set point to POINT."
   (with-current-buffer (slime-inspector-buffer)
     (setq slime-buffer-connection (slime-current-connection))
+    (when thread
+      (setq slime-current-thread thread))
     (let ((inhibit-read-only t))
       (erase-buffer)
       (destructuring-bind (&key title type content id) inspected-parts