X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Flow.lisp;h=db395cd21698e62eb136689d2cc89b7bb415e7a0;hb=1dc38285834db2d374a156a4f68b19096341deb3;hp=0949623e8967f862cae5a320dc690c7c72bdcb66;hpb=4aa08cf49281110c94f534a8e118bb8fcbfc18db;p=sbcl.git

diff --git a/src/pcl/low.lisp b/src/pcl/low.lisp
index 0949623..db395cd 100644
--- a/src/pcl/low.lisp
+++ b/src/pcl/low.lisp
@@ -381,7 +381,7 @@
 
 #+sb-thread
 (progn
-  (defvar *pcl-lock* (sb-thread::make-spinlock))
+  (defvar *pcl-lock* (sb-thread::make-spinlock :name "PCL lock"))
 
   (defmacro with-pcl-lock (&body body)
     `(sb-thread::with-spinlock (*pcl-lock*)