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

[Helmut Eller]

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

Modified Files:
	swank-cmucl.lisp 
Log Message:
(kill-thread): Implemented.
Date: Mon Mar  1 04:02:15 2004
Author: heller

Index: slime/swank-cmucl.lisp
diff -u slime/swank-cmucl.lisp:1.72 slime/swank-cmucl.lisp:1.73
--- slime/swank-cmucl.lisp:1.72	Wed Feb 25 17:03:39 2004
+++ slime/swank-cmucl.lisp	Mon Mar  1 04:02:15 2004
@@ -1358,6 +1358,9 @@
   (defimplementation interrupt-thread (thread fn)
     (mp:process-interrupt thread fn))
 
+  (defimplementation kill-thread (thread)
+    (mp:destroy-process thread))
+
   (defvar *mailbox-lock* (mp:make-lock "mailbox lock"))
   
   (defstruct (mailbox (:conc-name mailbox.))