From bf871eba3357fdd1025a85bbf0f4f66eab771564 Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@users.sourceforge.net>
Date: Sun, 8 Jul 2012 20:42:17 +0200
Subject: [PATCH] The load-compile lock is now recursive

---
 src/c/main.d | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/c/main.d b/src/c/main.d
index 8e5a9aa3f..934e4278f 100755
--- a/src/c/main.d
+++ b/src/c/main.d
@@ -722,7 +722,7 @@ cl_boot(int argc, char **argv)
 	 */
 #ifdef ECL_THREADS
 	ECL_SET(@'mp::+load-compile-lock+',
-		mp_make_lock(2, @':name', @'mp::+load-compile-lock+'));
+		ecl_make_lock(@'mp::+load-compile-lock+', 1));
 #endif
 	aux = cl_list(
 #ifdef ENABLE_DLOPEN