From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Mon, 3 Nov 2008 15:11:53 +0000 (+0000)
Subject: 1.0.22.11: name *pcl-lock*
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=1dc38285834db2d374a156a4f68b19096341deb3;hp=4aa08cf49281110c94f534a8e118bb8fcbfc18db;p=sbcl.git

1.0.22.11: name *pcl-lock*

 * For your debugging pleasure.
---

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*)
diff --git a/version.lisp-expr b/version.lisp-expr
index 2edfdad..bb5f962 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.22.10"
+"1.0.22.11"