X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Futils.lisp;h=0196d04a95db8b39867aa1d4906d76b4b0859a6a;hp=df3b70581b144c3aca81c1f81649e4aa8da4e50c;hb=d6c540d5e31b9c1310ed68d0b35af4da1dcad8dd;hpb=bd6843e2084ce45d3d7b769e383c3cac589b5e93

diff --git a/sql/utils.lisp b/sql/utils.lisp
index df3b705..0196d04 100644
--- a/sql/utils.lisp
+++ b/sql/utils.lisp
@@ -100,8 +100,8 @@
 
 #+lispworks
 (defvar +lw-has-without-preemption+
-  #+lispworks6 nil
-  #-lispworks6 t)
+  #-(or lispworks5 lispworks4) nil
+  #+(or lispworks5 lispworks4) t)
 #+lispworks
 (defvar +lw-global-lock+
   (unless +lw-has-without-preemption+