[slime-cvs] CVS slime

[CVS User sboukarev]

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

Modified Files:
	ChangeLog swank.lisp 
Log Message:
* swank.lisp (stop-server): (list-threads) returns threads offset by 1,
don't kill the wrong thread.
Reported by Sebastian Tennant.


--- /project/slime/cvsroot/slime/ChangeLog	2009/10/06 20:12:03	1.1869
+++ /project/slime/cvsroot/slime/ChangeLog	2009/10/09 23:05:12	1.1870
@@ -1,3 +1,8 @@
+2009-10-09  Stas Boukarev  <stassats at gmail.com>
+
+	* swank.lisp (stop-server): (list-threads) returns threads offset by 1,
+	don't kill the wrong thread.
+
 2009-10-06  Stas Boukarev  <stassats at gmail.com>
 
 	* swank-ccl.lisp (map-backtrace): Handle null end-frame-number argument.
--- /project/slime/cvsroot/slime/swank.lisp	2009/09/28 14:56:19	1.662
+++ /project/slime/cvsroot/slime/swank.lisp	2009/10/09 23:05:12	1.663
@@ -814,7 +814,7 @@
                                (cat "Swank " (princ-to-string port))))
                (list-threads))))
          (when thread-position
-           (kill-nth-thread thread-position)
+           (kill-nth-thread (1- thread-position))
            (close-socket socket)
            (remf *listener-sockets* port))))
       ((:fd-handler :sigio)