From 44bcba624124d56d6a0c00fb7aaca2e74fccef9f Mon Sep 17 00:00:00 2001 From: Eitaro Fukamachi Date: Sun, 17 Sep 2023 09:01:06 +0000 Subject: [PATCH] Migrate to Bordeaux-Threads APIv2. --- src/connection-cache.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/connection-cache.lisp b/src/connection-cache.lisp index 08eeecd..94660f6 100644 --- a/src/connection-cache.lisp +++ b/src/connection-cache.lisp @@ -27,7 +27,7 @@ ;; An LRU-POOL can have multiple entries for the same key (defstruct lru-pool - (lock #+thread-support (bt:make-lock "connection pool lock") + (lock #+thread-support (bt2:make-lock :name "connection pool lock") #-thread-support nil) (hash-table nil :type (or null hash-table)) ;; hash table entries are lists of elements (head nil :type (or null lru-pool-elt)) ;; most recently used is here and it's a doubly-linked-list @@ -128,7 +128,7 @@ (defmacro with-lock (lock &body body) (declare (ignorable lock)) - #+thread-support `(bt:with-lock-held (,lock) + #+thread-support `(bt2:with-lock-held (,lock) ,@body) #-thread-support `(progn ,@body))