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 (file)
--- 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 (file)
--- 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"