From 3d6ed9e79589fd20effdd2b896a5bb2e9a6e8670 Mon Sep 17 00:00:00 2001 From: Kevin Rosenberg Date: Thu, 28 Jan 2010 15:11:17 -0700 Subject: [PATCH] Ensure that Lispworks 6 lock is sharing-mode. Signed-off-by: Kevin Rosenberg --- ChangeLog | 4 ++++ debian/changelog | 6 ++++++ sql/utils.lisp | 3 ++- 3 files changed, 12 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 54c668c..77d4ca8 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +28 Jan 2009 Kevin Rosenberg + * Version 4.3.1 + * sql/utils.lisp: Ensure Lispworks 6 lock is created in sharing mode + 20 Jan 2009 Nathan Bird * Version 4.3.0 * Rewrite tests to use datasets diff --git a/debian/changelog b/debian/changelog index 08d712f..9ddcdc8 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +cl-sql (4.3.1-1) unstable; urgency=low + + * New upstream + + -- Kevin M. Rosenberg Thu, 28 Jan 2010 15:10:11 -0700 + cl-sql (4.3.0-1) unstable; urgency=low * New upstream diff --git a/sql/utils.lisp b/sql/utils.lisp index 51eef9e..fe5a24c 100644 --- a/sql/utils.lisp +++ b/sql/utils.lisp @@ -64,7 +64,8 @@ #+lispworks (defvar +lw-global-lock+ (unless +lw-has-without-preemption+ - (mp:make-lock :name "CLSQL" :important-p nil :safep t :recursivep nil))) + (mp:make-lock :name "CLSQL" :important-p nil :safep t :recursivep nil + :sharing t))) (defmacro without-interrupts (&body body) #+allegro `(mp:without-scheduling ,@body) -- 2.34.1