Skip to content
Snippets Groups Projects
Commit a5308cfb authored by Kevin M. Rosenberg's avatar Kevin M. Rosenberg
Browse files

Update SBCL functions to terminate-thread and exit

parent 6f9d5a46
No related branches found
No related tags found
No related merge requests found
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> 1 Apr 2011 Kevin Rosenberg <kevin@rosenberg.net>
* Version 1.104 * Version 1.104
* listener.lisp: Add support for active sockets in listener * listener.lisp: Add support for active sockets in listener
......
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 cl-kmrcl (1.106-1) unstable; urgency=low
* New upstream * New upstream
......
...@@ -105,7 +105,7 @@ ...@@ -105,7 +105,7 @@
#+gcl (lisp:bye code) #+gcl (lisp:bye code)
#+lispworks (lw:quit :status code) #+lispworks (lw:quit :status code)
#+lucid (lcl:quit 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) #+mcl (ccl:quit code)
#-(or allegro clisp cmu scl cormanlisp gcl lispworks lucid sbcl mcl) #-(or allegro clisp cmu scl cormanlisp gcl lispworks lucid sbcl mcl)
(error 'not-implemented :proc (list 'quit code))) (error 'not-implemented :proc (list 'quit code)))
......
...@@ -23,7 +23,7 @@ ...@@ -23,7 +23,7 @@
(defun destroy-process (process) (defun destroy-process (process)
#+cmu (mp:destroy-process process) #+cmu (mp:destroy-process process)
#+allegro (mp:process-kill 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) #+lispworks (mp:process-kill process)
#+ccl (ccl:process-kill process) #+ccl (ccl:process-kill process)
) )
...@@ -80,6 +80,3 @@ ...@@ -80,6 +80,3 @@
"Put thread to sleep for n seconds." "Put thread to sleep for n seconds."
#+allegro (mp:process-sleep n) #+allegro (mp:process-sleep n)
#-allegro (sleep n)) #-allegro (sleep n))
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment