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