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

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))
-
-
-