Permalink
Browse files

In MAKE-LOCK (swank-ecl.lisp) make it explicit the need for recursive…

… locks.
  • Loading branch information...
Juan Jose Garcia Ripoll
Juan Jose Garcia Ripoll committed Apr 13, 2012
1 parent beca9ef commit cf5597615c4c915cb634b3c140793750b51751b4
Showing with 1 addition and 1 deletion.
  1. +1 −1 swank-ecl.lisp
View
@@ -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))

0 comments on commit cf55976

Please sign in to comment.