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

[Helmut Eller]

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

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

Index: slime/swank-allegro.lisp
diff -u slime/swank-allegro.lisp:1.15 slime/swank-allegro.lisp:1.16
--- slime/swank-allegro.lisp:1.15	Thu Feb 26 02:16:16 2004
+++ slime/swank-allegro.lisp	Mon Mar  1 04:02:06 2004
@@ -345,6 +345,9 @@
 (defimplementation interrupt-thread (thread fn)
   (mp:process-interrupt thread fn))
 
+(defimplementation kill-thread (thread)
+  (mp:process-kill thread))
+
 (defvar *mailbox-lock* (mp:make-process-lock :name "mailbox lock"))
 
 (defstruct (mailbox (:conc-name mailbox.))