This supplies the mutex implementation for Emacs Lisp.

A lisp mutex is implemented using a condition variable, so that we can
interrupt a mutex-lock operation by calling thread-signal on the
blocking thread.  I did things this way because pthread_mutex_lock
can't readily be interrupted.

1 files changed, 2 insertions, 0 deletions

diff --git a/src/alloc.c b/src/alloc.c
index 69742a325d1..80d22d61d66 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -3104,6 +3104,8 @@ sweep_vectors (void)
 
               if (PSEUDOVECTOR_TYPEP (&vector->header, PVEC_THREAD))
                 finalize_one_thread ((struct thread_state *) vector);
+              else if (PSEUDOVECTOR_TYPEP (&vector->header, PVEC_MUTEX))
+                finalize_one_mutex ((struct Lisp_Mutex *) vector);
 
               next = ADVANCE (vector, nbytes);