[slime-cvs] CVS slime

[CVS User sboukarev]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv12661

Modified Files:
	ChangeLog slime.el 
Log Message:
slime.el(slime-set-connection-info): Set slime-current-thread to t
before doing anything. Solves a bug reported by Slawek Zak.


--- /project/slime/cvsroot/slime/ChangeLog	2009/11/21 21:32:28	1.1919
+++ /project/slime/cvsroot/slime/ChangeLog	2009/11/23 19:54:55	1.1920
@@ -1,3 +1,8 @@
+2009-11-23  Stas Boukarev  <stassats at gmail.com>
+
+	* slime.el (slime-set-connection-info): Set slime-current-thread to t
+	before doing anything. Solves a bug reported by Slawek Zak.
+
 2009-11-21  Tobias C. Rittweiler <tcr at freebits.de>
 
 	* swank-sbcl.lisp (who-specializes): Implement.
--- /project/slime/cvsroot/slime/slime.el	2009/11/19 13:37:44	1.1250
+++ /project/slime/cvsroot/slime/slime.el	2009/11/23 19:54:56	1.1251
@@ -1916,11 +1916,12 @@
   ;; first command.
   (let ((slime-current-thread t))
     (slime-eval-async '(swank:connection-info)
-                    (slime-curry #'slime-set-connection-info proc))))
+                      (slime-curry #'slime-set-connection-info proc))))
 
 (defun slime-set-connection-info (connection info)
   "Initialize CONNECTION with INFO received from Lisp."
-  (let ((slime-dispatching-connection connection))
+  (let ((slime-dispatching-connection connection)
+        (slime-current-thread t))
     (destructuring-bind (&key pid style lisp-implementation machine
                               features package version modules
                               &allow-other-keys) info