branch: externals/sly
commit a1fc34c76e97b8d7622148fd1285025278d077f9
Author: Chris Schafmeister <meis...@temple.edu>
Commit: João Távora <joaotav...@gmail.com>

    Add a name to the mailbox lock for clasp
    
    * slynk/backend/clasp.lisp (mailbox): Add name to mutex.
    
    Cherry-picked-from: SLIME commit f98b050abfd682011b35317b556db901ace71ebe
---
 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 7db7796..a8851af 100644
--- a/slynk/backend/clasp.lisp
+++ b/slynk/backend/clasp.lisp
@@ -736,7 +736,7 @@
 
   (defstruct (mailbox (:conc-name mailbox.))
     thread
-    (mutex (mp:make-lock))
+    (mutex (mp:make-lock :name "SLIMELCK"))
     (cvar  (mp:make-condition-variable))
     (queue '() :type list))
 

Reply via email to