From 800ca497282f6fb61e41ea151038d3baa05cdaeb Mon Sep 17 00:00:00 2001
From: kilianmh <kilian.haemmerle@protonmail.com>
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
 href='/guix/log/?id=056859150c3d62f9e382d0d4a02351db38df4726'>root</a>/<a href='/guix/log/gnu?id=056859150c3d62f9e382d0d4a02351db38df4726'>gnu</a>/<a href='/guix/log/gnu/ci.scm?id=056859150c3d62f9e382d0d4a02351db38df4726'>ci.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/ci.scm?id=056859150c3d62f9e382d0d4a02351db38df4726&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2024-07-10 18:57:44 +0300'>2024-07-10</span></td><td><a href='/guix/commit/gnu/ci.scm?id=e99c838d4f87d6403355bb7b38695e1bc8f697f6'>gnu: ci: Cross-build for fewer platforms.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/ci.scm (%unsupported-platform-triplets): New variable.
(cross-jobs): Also don't build for systems listed in
%unsupported-platform-triplets.

Change-Id: Ic31ae6d307f2d243c098ec050bdb9d09060466ac
</span></span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2024-06-13 08:53:20 +0200'>2024-06-13</span></td><td><a href='/guix/commit/gnu/ci.scm?id=a636bd3bebd078deacdb5bb500f07d25bd364daa'>ci: Add cross-compilation jobs for x86_64-linux-gnux32.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/ci.scm (cross-jobs)[same?]: Special case x86_64-linux-gnux32.

Change-Id: I877eb50d6b0b0bf10474c58f8e9d5ee92f1705d2
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2024-05-31 20:04:51 +0800'>2024-05-31</span></td><td><a href='/guix/commit/gnu/ci.scm?id=83d29d56f8808ca1f076dda37ef34150d0308e9a'>ci: Build visionfive2-barebones-raw-image.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/ci.scm (%guix-system-images): Add visionfive2-barebones-raw-image.

Change-Id: I0a0edccf00119d6b23b864bb0123be6ca7b01d34
Signed-off-by: Zheng Junjie &lt;zhengjunjie@iscas.ac.cn&gt;
</span></span></td><td>Zheng Junjie</td></tr>
<tr><td><span title='2024-04-17 17:29:58 +0200'>2024-04-17</span></td><td><a href='/guix/commit/gnu/ci.scm?id=7bed290fdfd830d690daf065de6d2ecab73309d9'>ci: Don’t cross-compile to xtensa-ath9k-elf.</a><span class='msg-avail'>...<span class='msg-tooltip'>This is a followup to 9a60894156c3ea2c609ae0cd787df949f2d6ecc2.

* gnu/ci.scm (%bare-platform-triplets): New variable.
(cross-jobs)[pointless?]: Use it.

Change-Id: I4701bc402bb93d372d46b7208697e0f998a1dc62
</span></span></td><td>Ludovic Courtès</td></tr>