X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Futils.lisp;h=fe5a24ce63aa930444708a10bbc233d929b49c67;hp=51eef9ebe20b5ff52a1c9c7bbaf821279a37f175;hb=3d6ed9e79589fd20effdd2b896a5bb2e9a6e8670;hpb=158319d9e98eabc92b285c2cbabec71b085aed46

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)