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, 8 insertions, 0 deletions

diff --git a/src/print.c b/src/print.c
index 4537521b9fa..42e7241ecba 100644
--- a/src/print.c
+++ b/src/print.c
@@ -1955,6 +1955,14 @@ print_object (Lisp_Object obj, register Lisp_Object printcharfun, int escapeflag
             }
           PRINTCHAR ('>');
         }
+      else if (MUTEXP (obj))
+        {
+          int len;
+          strout ("#<mutex ", -1, -1, printcharfun);
+          len = sprintf (buf, "%p", XMUTEX (obj));
+          strout (buf, len, len, printcharfun);
+          PRINTCHAR ('>');
+        }
       else
         {
           ptrdiff_t size = ASIZE (obj);