Function

Summary

Returns the current owner of a lock.

Package

mp

Signature

lock-owner lock => owner

Arguments

lock

A lock object

Values

owner

A process

Description

The lock-owner function returns the process that currently owns the lock, or nil .

Example

(let ((lock (mp:make-lock :name "my lock")))

  (mp:lock-owner lock))

=> "my lock"

(let ((lock (mp:make-lock :name "my lock")))

  (mp:with-lock (lock)

    (mp:lock-owner lock)))

=> #<MP:PROCESS Name "Listener 1" Priority 700000 State "Running">

See also

make-lock
with-lock
process-lock
process-unlock
lock-name