From e725846659f584e5ad048d360e955f6512402eee Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@users.sourceforge.net>
Date: Thu, 17 Jan 2013 23:14:27 +0100
Subject: [PATCH] CLX uses recursive locks

---
 src/clx/dependent.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/clx/dependent.lisp b/src/clx/dependent.lisp
index 9de298cb3..ba6bdf1cb 100644
--- a/src/clx/dependent.lisp
+++ b/src/clx/dependent.lisp
@@ -894,7 +894,7 @@
 
 #+(and ecl threads)
 (defun make-process-lock (name)
-  (mp:make-lock :name name))
+  (mp:make-lock :name name :recursive t))
 
 ;;; HOLDING-LOCK: Execute a body of code with a lock held.