13 The MP Package

lock-owner

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

Thelock-owner function returns the process that currently owns the lock, ornil.

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