Use SB-THREAD mutex for handle lock (#52)

quil-lang · Dec 6, 2023 · 5ccf7e6 · 5ccf7e6
1 parent 04f7e39
commit 5ccf7e6
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 3 deletions.
diff --git a/sbcl-librarian.asd b/sbcl-librarian.asd
@@ -3,7 +3,6 @@
 (asdf:defsystem #:sbcl-librarian
   :description "Tool for generating Lisp bindings."
   :author "Charles Zhang <[email protected]>"
-  :depends-on (#:bordeaux-threads)
   ; :license "TODO"
   ; :version "0.0.1"
   :in-order-to ((test-op (test-op "sbcl-librarian/tests")))

diff --git a/src/handles.lisp b/src/handles.lisp
@@ -11,10 +11,10 @@
 (defun handle-key (handle) (sb-alien::sap-int (sb-alien:alien-sap handle)))
 
 (defvar *handle-lock*
-  (bt:make-lock "handle lock"))
+  (sb-thread:make-mutex :name "handle lock"))
 
 (defun make-handle (object)
-  (bt:with-lock-held (*handle-lock*)
+  (sb-thread:with-mutex (*handle-lock*)
     (let* ((handles *handles*)
            (key (svref handles 1)))
       (setf (gethash key (svref handles 0)) object)