From: Kevin M. Rosenberg Date: Sat, 29 Aug 2015 05:54:11 +0000 (-0600) Subject: Update SBCL functions to terminate-thread and exit X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=commitdiff_plain;h=a5308cfb87ee874de0407b8c3d707e2fe131ead7 Update SBCL functions to terminate-thread and exit --- diff --git a/ChangeLog b/ChangeLog index 0929de9..ab38677 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +28 Aug 2015 Kevin Rosenberg + * 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 * 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 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)) - - -