From 800ca497282f6fb61e41ea151038d3baa05cdaeb Mon Sep 17 00:00:00 2001 From: kilianmh Date: Sun, 9 Jun 2024 09:02:00 +0200 Subject: [PATCH] Chore: Update to bordeaux-threads-2 --- src/sysdeps.lisp | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/src/sysdeps.lisp b/src/sysdeps.lisp index 638e88c..f3a9f19 100644 --- a/src/sysdeps.lisp +++ b/src/sysdeps.lisp @@ -21,19 +21,19 @@ (defun current-process () "Return the object representing the current process" - (bt:current-thread)) + (bt2:current-thread)) (defun kill-process (process) "Kill the process represented by the object process" - (bt:destroy-thread process)) + (bt2:destroy-thread process)) (defun run-process (name function &rest arguments) "Create and run a new process with name, executing function on arguments" - (bt:make-thread #'(lambda () (apply function arguments)) :name name)) + (bt2:make-thread #'(lambda () (apply function arguments)) :name name)) (defun all-processes () "Return a list of all processes currently running" - (bt:all-threads)) + (bt2:all-threads)) ;; opening a client TCP/IP socket stream @@ -75,19 +75,19 @@ (defun stop-process (name) "Stop a named process by destroying it" - (let ((thread (find name (bt:all-threads) :key #'bt:thread-name :test #'equal))) + (let ((thread (find name (bt2:all-threads) :key #'bt2:thread-name :test #'equal))) (when thread - (bt:destroy-thread thread) + (bt2:destroy-thread thread) name))) ;; working with process locks (defun make-process-lock (name) "Create a named process lock object" - (bt:make-recursive-lock name)) + (bt2:make-recursive-lock :name name)) (defmacro with-process-lock ((lock) &body body) "Execute body wih the process lock grabbed, wait otherwise" - `(bt:with-recursive-lock-held (,lock) ,@body)) + `(bt2:with-recursive-lock-held (,lock) ,@body)) ;;;; eof /guix/log/?id=ed9d890e0e24b10df6f170fe7c9635151e0423c1'>root/bootstrap
AgeCommit message (Expand)Author