From: Kevin Rosenberg Date: Thu, 28 Jan 2010 22:11:17 +0000 (-0700) Subject: Ensure that Lispworks 6 lock is sharing-mode. X-Git-Tag: v4.3.1^0 X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=3d6ed9e79589fd20effdd2b896a5bb2e9a6e8670 Ensure that Lispworks 6 lock is sharing-mode. Signed-off-by: Kevin Rosenberg --- 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)