Update SBCL functions to terminate-thread and exit

diff --git a/ChangeLog b/ChangeLog
index 0929de9853662fb903ce9eaa4fa14bd185da76c9..ab38677293be0de73362b2660b11a7b406600e9c 100644 (file)
--- 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 d6d293656105514dc09d135c734807da17ef1152..db7e793718de36f3f5e55e21160d65c0fd9ebd5d 100644 (file)
--- 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 7135eb0e4ea1005b97aa420de3bf743bfe4574c6..a6d6897bd7551a465573dbd220970e31aa25bdcc 100644 (file)
--- 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 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))
-
-
-