Function ACQUIRE-RECURSIVE-LOCK, RELEASE-RECURSIVE-LOCK
acquire-recursive-lock lock &key (wait t) timeout => generalized-boolean
release-recursive-lock lock => lock
Arguments and values:
lock for the calling thread.
wait governs what happens if the lock is not available: if
true, the calling thread will wait until the lock is available and
then acquire it; if
wait is nil,
return immediately. If
wait is true,
timeout may specify a maximum
amount of seconds to wait for the lock to become available.