Ensure that Lispworks 6 lock is sharing-mode.

Signed-off-by: Kevin Rosenberg <kevin@rosenberg.net>

diff --git a/ChangeLog b/ChangeLog
index 54c668c17ef90197d857d314c95153b5583797d7..77d4ca8f2356b7515ff4172719913024a45da0b2 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+28 Jan 2009  Kevin Rosenberg <kevin@rosenberg.net>
+       * Version 4.3.1
+       * sql/utils.lisp: Ensure Lispworks 6 lock is created in sharing mode
+

 20 Jan 2009  Nathan Bird <nathan@acceleration.net>
        * Version 4.3.0
        * Rewrite tests to use datasets
 20 Jan 2009  Nathan Bird <nathan@acceleration.net>
        * Version 4.3.0
        * Rewrite tests to use datasets

diff --git a/debian/changelog b/debian/changelog
index 08d712f422335f3bdeabeb6e8178858423ac8f78..9ddcdc8dc4accbfea1afb68b05d6cfb6762ff359 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+cl-sql (4.3.1-1) unstable; urgency=low
+
+  * New upstream
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Thu, 28 Jan 2010 15:10:11 -0700
+

 cl-sql (4.3.0-1) unstable; urgency=low
 
   * New upstream
 cl-sql (4.3.0-1) unstable; urgency=low
 
   * New upstream

diff --git a/sql/utils.lisp b/sql/utils.lisp
index 51eef9ebe20b5ff52a1c9c7bbaf821279a37f175..fe5a24ce63aa930444708a10bbc233d929b49c67 100644 (file)
--- a/sql/utils.lisp
+++ b/sql/utils.lisp
@@ -64,7 +64,8 @@
 #+lispworks
 (defvar +lw-global-lock+
   (unless +lw-has-without-preemption+
 #+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)
 
 (defmacro without-interrupts (&body body)
   #+allegro `(mp:without-scheduling ,@body)