From: Kevin M. Rosenberg Date: Sat, 29 Aug 2015 05:56:22 +0000 (-0600) Subject: Merge branch 'master' of ssh://git.b9.com/home/gitpub/kmrcl X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=commitdiff_plain;h=10d5d074eb995ba586abbde88460480379fa2b16;hp=f24004941eccdabb71485163d4bdf63ceea8dbf9 Merge branch 'master' of ssh://git.b9.com/home/gitpub/kmrcl --- 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 ebcfff2..db7e793 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,15 @@ +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 + + -- Kevin M. Rosenberg Sat, 02 Jul 2011 11:03:07 -0600 + cl-kmrcl (1.105-1) unstable; urgency=low * New upstream diff --git a/debian/control b/debian/control index c57f830..d991358 100644 --- a/debian/control +++ b/debian/control @@ -4,7 +4,7 @@ Priority: optional Maintainer: Kevin M. Rosenberg Build-Depends-Indep: dh-lisp Build-Depends: debhelper (>= 7.0.0) -Standards-Version: 3.9.2.0 +Standards-Version: 3.9.5.0 Homepage: http://files.b9.com/kmrcl/ Vcs-Git: git://git.b9.com/kmrcl.git Vcs-Browser: http://git.b9.com/?p=kmrcl.git 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)) - - -