name your damn locks, people

This commit is contained in:
eta 2020-04-06 21:22:41 +01:00
parent 297170ae6b
commit 2a1e7303d0

View file

@ -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