From a5308cfb87ee874de0407b8c3d707e2fe131ead7 Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Fri, 28 Aug 2015 23:54:11 -0600
Subject: [PATCH] Update SBCL functions to terminate-thread and exit

---
 ChangeLog        | 6 ++++++
 debian/changelog | 6 ++++++
 impl.lisp        | 2 +-
 processes.lisp   | 5 +----
 4 files changed, 14 insertions(+), 5 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 0929de9..ab38677 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+28 Aug 2015  Kevin Rosenberg <kevin@rosenberg.net>
+	* Version 1.107
+	* processes.lisp: Update name of SBCL function call to
+	terminate-thread.
+	* impl.lisp: Update name of SBCL function call to sb-ext:exit
+
 1 Apr 2011  Kevin Rosenberg <kevin@rosenberg.net>
 	* Version 1.104
 	* listener.lisp: Add support for active sockets in listener
diff --git a/debian/changelog b/debian/changelog
index d6d2936..db7e793 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+cl-kmrcl (1.107-1) unstable; urgency=medium
+
+  * New upstream
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Fri, 28 Aug 2015 23:49:18 -0600
+
 cl-kmrcl (1.106-1) unstable; urgency=low
 
   * New upstream
diff --git a/impl.lisp b/impl.lisp
index 7135eb0..a6d6897 100644
--- a/impl.lisp
+++ b/impl.lisp
@@ -105,7 +105,7 @@
     #+gcl (lisp:bye code)
     #+lispworks (lw:quit :status code)
     #+lucid (lcl:quit code)
-    #+sbcl (sb-ext:quit :unix-status (typecase code (number code) (null 0) (t 1)))
+    #+sbcl (sb-ext:exit :code (typecase code (number code) (null 0) (t 1)))
     #+mcl (ccl:quit code)
     #-(or allegro clisp cmu scl cormanlisp gcl lispworks lucid sbcl mcl)
     (error 'not-implemented :proc (list 'quit code)))
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))
-
-
-
-- 
GitLab