X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=processes.lisp;h=7bdf018e6084324dec584bc1c104e613950928f4;hb=f010b1701edc118c73e9096fd3f8e05d1daa3c68;hp=22cde94ecc11f329591500fff403e1d7e024dc5a;hpb=f24004941eccdabb71485163d4bdf63ceea8dbf9;p=kmrcl.git

diff --git a/processes.lisp b/processes.lisp
index 22cde94..7bdf018 100644
--- a/processes.lisp
+++ b/processes.lisp
@@ -23,7 +23,7 @@
 (defun destroy-process (process)
   #+cmu (mp:destroy-process process)
   #+allegro (mp:process-kill process)
-  #+sb-thread (sb-thread:destroy-thread process)
+  #+sb-thread (sb-thread:terminate-thread process)
   #+lispworks (mp:process-kill process)
   #+ccl (ccl:process-kill process)
   )
@@ -80,6 +80,3 @@
   "Put thread to sleep for n seconds."
   #+allegro (mp:process-sleep n)
   #-allegro (sleep n))
-
-
-