Update SBCL functions to terminate-thread and exit

[kmrcl.git] / processes.lisp

diff --git a/processes.lisp b/processes.lisp
index 22cde94ecc11f329591500fff403e1d7e024dc5a..7bdf018e6084324dec584bc1c104e613950928f4 100644 (file)
--- 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))
-
-
-