[slime-cvs] CVS slime

[CVS User jgarcia]

Update of /project/slime/cvsroot/slime
In directory tiger.common-lisp.net:/tmp/cvs-serv9667

Modified Files:
	swank-ecl.lisp 
Log Message:
In MAKE-LOCK (swank-ecl.lisp) make it explicit the need for recursive locks.

--- /project/slime/cvsroot/slime/swank-ecl.lisp	2012/04/07 10:23:39	1.73
+++ /project/slime/cvsroot/slime/swank-ecl.lisp	2012/04/13 22:50:12	1.74
@@ -736,7 +736,7 @@
         "STOPPED"))
 
   (defimplementation make-lock (&key name)
-    (mp:make-lock :name name))
+    (mp:make-lock :name name :recursive t))
 
   (defimplementation call-with-lock-held (lock function)
     (declare (type function function))