#36 Genera Locking code

[Rusty Johnson]

Sorry missed this earlier:

In Genera:

Make-Lock:

(process:make-lock name)

with-lock:

`(process:with-lock (,lock) ,@body)

Side Note: I would prefer ".,body" as opposed to ",@body"
to avoid reCONSing the cells during compile time.

BTW, the Lucid code for with-lock is:

`(lcl:with-process-lock (,lock) ,@body)

[Sam Steingold]

Logged In: YES
user_id=5735

what about
lucid/make-lock
genera/get-lock
genera/giveup-lock
??
(we have lucid with-lock already in the sources, exactly as
you suggest)

[Rusty Johnson]

Logged In: YES
user_id=712447

The code for Genera's get-lock and giveup-lock involve extra bits
of state and a resource. I don't have code for Lucid's make-lock.

Most app.'s just use with-lock anyway.

Have you thought of implementing recursive-locks or multi-reader-
single-writer-locks?

[Sam Steingold]

Logged In: YES
user_id=5735

not sure what a recursive lock is.
please send the patches in :-)
(I am closing the bug because I put the changes in)