+#+lispworks
+(defvar +lw-has-without-preemption+
+ #+lispworks6 nil
+ #-lispworks6 t)
+#+lispworks
+(defvar +lw-global-lock+
+ (unless +lw-has-without-preemption+
+ (mp:make-lock :name "CLSQL" :important-p nil :safep t :recursivep nil
+ :sharing t)))
+