name your damn locks, people

2020-04-06 21:22:41 +01:00 · 2020-04-06 21:22:41 +01:00 · 2a1e7303d0
parent 297170ae6b
commit 2a1e7303d0
1 changed files with 2 additions and 2 deletions
--- a/stuff.lisp
+++ b/stuff.lisp
@ -25,10 +25,10 @@
    :initarg :socket
    :accessor component-socket)
   (socket-lock
-    :initform (bt:make-recursive-lock)
+    :initform (bt:make-recursive-lock "component socket lock")
    :accessor component-socket-lock)
   (data-lock
-    :initform (bt:make-recursive-lock)
+    :initform (bt:make-recursive-lock "component data lock")
    :accessor component-data-lock)
   (sink
    :initarg :sink