Returns the owner of a lock.
lock-owner lock => result
A lock object
lock-owner returns the process that currently owns the lock, or
If lock is a "sharing" lock then
lock-owner checks for an exclusive lock (see lock-owned-by-current-process-p).
If lock is locked then result is normally the process that locked it. If lock was locked while multiprocessing was not running then result is
t. Also, if lock was locked by an unknown process (for example, the process is killed while holding the lock) then result is
nil if lock is not locked.
CL-USER 1 > (let ((lock (mp:make-lock :name
CL-USER 2 > (let ((lock (mp:make-lock :name
#<MP:PROCESS Name "CAPI Execution Listener 1" Priority 0 State "Running">
LispWorks User Guide and Reference Manual - 13 Feb 2015