
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 .