From f35a74a8880eed46a4c34ed92f792afd02badb95 Mon Sep 17 00:00:00 2001
From: Stelian Ionescu <sionescu@cddr.org>
Date: Sun, 28 May 2023 19:39:07 -0400
Subject: [PATCH] Export BT2:NATIVE-RECURSIVE-LOCK and
 BT2:NATIVE-RECURSIVE-LOCK-P

---
 apiv2/impl-sbcl.lisp | 3 ++-
 apiv2/pkgdcl.lisp    | 2 ++
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/apiv2/impl-sbcl.lisp b/apiv2/impl-sbcl.lisp
index 051bf34..bdd2dca 100644
--- a/apiv2/impl-sbcl.lisp
+++ b/apiv2/impl-sbcl.lisp
@@ -65,7 +65,8 @@
 ;;; Recursive locks
 ;;;
 
-(deftype native-recursive-lock () 'sb-thread:mutex)
+(deftype native-recursive-lock ()
+  'sb-thread:mutex)
 
 (defun %make-recursive-lock (name)
   (sb-thread:make-mutex :name name))
diff --git a/apiv2/pkgdcl.lisp b/apiv2/pkgdcl.lisp
index a1c11a5..e9bedac 100644
--- a/apiv2/pkgdcl.lisp
+++ b/apiv2/pkgdcl.lisp
@@ -48,6 +48,8 @@
    #:lock-native-lock
    #:native-lock
    #:native-lock-p
+   #:native-recursive-lock
+   #:native-recursive-lock-p
 
    #:make-lock
    #:acquire-lock
-- 
2.11.4.GIT