




 
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
.