From a9d874dfcbf4ae5b2a029d15e44032fde223f018 Mon Sep 17 00:00:00 2001
From: Stas Boukarev <stassats@gmail.com>
Date: Mon, 6 Jul 2015 18:04:30 +0300
Subject: [PATCH] Remove private keywords from sb-thread:make-mutex.

---
 src/code/thread.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/code/thread.lisp b/src/code/thread.lisp
index ddc2f5e28..543616061 100644
--- a/src/code/thread.lisp
+++ b/src/code/thread.lisp
@@ -52,7 +52,8 @@ temporarily.")
   (signal-number nil :type integer))
 
 (declaim (inline make-mutex)) ;; for possible DX-allocating
-(def!struct mutex
+(def!struct (mutex
+             (:constructor make-mutex (&key name)))
   #!+sb-doc
   "Mutex type."
   (name   nil :type (or null thread-name))
-- 
2.11.4.GIT