[slime-cvs] CVS update: slime/swank.lisp

[Luke Gorrie]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv16390

Modified Files:
	swank.lisp 
Log Message:
(cleanp-connection-threads): Kill all Swank threads for a connction
when it terminates.

Date: Wed Sep 15 10:54:51 2004
Author: lgorrie

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.235 slime/swank.lisp:1.236
--- slime/swank.lisp:1.235	Tue Sep 14 18:01:51 2004
+++ slime/swank.lisp	Wed Sep 15 10:54:51 2004
@@ -505,6 +505,10 @@
       (setf (connection.repl-thread connection) repl-thread)
       connection)))
 
+(defun cleanup-connection-threads (connection)
+  (kill-thread (connection.control-thread connection))
+  (kill-thread (connection.repl-thread connection)))
+
 (defun repl-loop (connection)
   (with-connection (connection)
     (loop (handle-request connection))))
@@ -612,7 +616,8 @@
       (make-connection :socket-io socket-io
 		       :read #'read-from-control-thread
 		       :send #'send-to-control-thread
-		       :serve-requests #'spawn-threads-for-connection))
+		       :serve-requests #'spawn-threads-for-connection
+                       :cleanup #'cleanup-connection-threads))
      (:sigio
       (make-connection :socket-io socket-io 
                        :read #'read-from-socket-io