projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Ensure that Lispworks 6 lock is sharing-mode.
[clsql.git]
/
sql
/
utils.lisp
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)