Returns the current owner of a lock.
mp
lock-owner lock => owner
lock
A lock object
owner
A process
The lock-owner function returns the process that currently owns the lock, or nil .
lock-owner
nil
(let ((lock (mp:make-lock :name "my lock")))
(mp:lock-owner lock))
=> "my lock"
(mp:with-lock (lock)
(mp:lock-owner lock)))
=> #<MP:PROCESS Name "Listener 1" Priority 700000 State "Running">
make-lock with-lock process-lock process-unlock lock-name