[slime-cvs] CVS slime

[CVS User sboukarev]

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

Modified Files:
	ChangeLog swank.lisp 
Log Message:
* swank.lisp (list-threads): Call `use-threads-p' only when
*emacs-connection* is non-nil. `use-threads-p' wouldn't work in
this case, and there is no need to remove a worker thread from the
list if it's not connected.
This fixes an issue with calling swank:stop-server when slime
isn't connected.


--- /project/slime/cvsroot/slime/ChangeLog	2011/03/13 21:11:12	1.2185
+++ /project/slime/cvsroot/slime/ChangeLog	2011/04/14 01:21:10	1.2186
@@ -1,3 +1,12 @@
+2011-04-14  Stas Boukarev  <stassats at gmail.com>
+
+	* swank.lisp (list-threads): Call `use-threads-p' only when
+	*emacs-connection* is non-nil. `use-threads-p' wouldn't work in
+	this case, and there is no need to remove a worker thread from the
+	list if it's not connected.
+	This fixes an issue with calling swank:stop-server when slime
+	isn't connected.
+
 2011-03-13  Stas Boukarev  <stassats at gmail.com>
 
 	* swank.lisp (format-restarts-for-emacs): Add
--- /project/slime/cvsroot/slime/swank.lisp	2011/03/13 21:11:13	1.741
+++ /project/slime/cvsroot/slime/swank.lisp	2011/04/14 01:21:11	1.742
@@ -3761,7 +3761,8 @@
 LABELS is a list of attribute names and the remaining lists are the
 corresponding attribute values per thread."
   (setq *thread-list* (all-threads))
-  (when (and (use-threads-p)
+  (when (and *emacs-connection*
+             (use-threads-p)
              (equalp (thread-name (current-thread)) "worker"))
     (setf *thread-list* (delete (current-thread) *thread-list*)))
   (let* ((plist (thread-attributes (car *thread-list*)))