claim-lock
attempts to set the owner of the specified lock to be
*current-process*
, at the same time setting its lock to
t
, and incrementing its count.
If the lock is successfully claimed,
claim-lock
returns
t
, otherwise it returns
nil
.