branch: externals/sly
commit c794fe60210611f6dd4180df53284263ff4be41c
Author: Chris Schafmeister <meis...@temple.edu>
Commit: João Távora <joaotav...@gmail.com>
Remove recursive locks for clasp
They weren't needed and we wanted to regularize the make-lock call
so we had to remove the :recursive keyword argument
* slynk/backend/clasp.lisp (make-lock): No longer recursively MP:MAKE-LOCK.
Cherry-picked-from: SLIME commit 6a42585021d7a0bef0be2bf2df1e3c262ae6e049
Co-authored-by: João Távora <joaotav...@gmail.com>
---
slynk/backend/clasp.lisp | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/slynk/backend/clasp.lisp b/slynk/backend/clasp.lisp
index 8c515be..482a342 100644
--- a/slynk/backend/clasp.lisp
+++ b/slynk/backend/clasp.lisp
@@ -707,7 +707,7 @@
"STOPPED"))
(defimplementation make-lock (&key name)
- (mp:make-lock :name name :recursive t))
+ (mp:make-lock :name name))
(defimplementation call-with-lock-held (lock function)
(declare (type function function))
