From 1dc38285834db2d374a156a4f68b19096341deb3 Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Mon, 3 Nov 2008 15:11:53 +0000 Subject: [PATCH] 1.0.22.11: name *pcl-lock* * For your debugging pleasure. --- src/pcl/low.lisp | 2 +- version.lisp-expr | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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" -- 1.7.10.4