Fix conditionalization in CLSQL under LispWorks 7.0

Martin Simmons <[email protected]> Tue, 26 Jan 2016 18:14:42 GMT
Newsgroups gmane.lisp.clsql.general
Message-ID <[email protected]>
--0__=NVYIZYEYDZYTJTIRZYRWVKNXMRWIOOITUFZCXUVCPSFSCRNSESAYHIKL
Content-type: text/plain; charset=us-ascii
Content-Disposition: inline

Hi CLSQL maintainers,

The attached patch fixes an incorrect conditionalization in CLSQL, to allow
compilation under LispWorks 7.0.  Using "negative" feature expressions ensures
forward compatibility for this kind of test.

-- 
Martin Simmons
LispWorks Ltd
http://www.lispworks.com/

--0__=NVYIZYEYDZYTJTIRZYRWVKNXMRWIOOITUFZCXUVCPSFSCRNSESAYHIKL
Content-type: text/plain; 
	name="lw-has-without-preemption-lw7.patch"
Content-Disposition: attachment; filename="lw-has-without-preemption-lw7.patch"
Content-transfer-encoding: quoted-printable

diff --git a/sql/utils.lisp b/sql/utils.lisp
index be1396e..375c9fd 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+

--0__=NVYIZYEYDZYTJTIRZYRWVKNXMRWIOOITUFZCXUVCPSFSCRNSESAYHIKL
Content-Type: text/plain; charset="utf-8"
MIME-Version: 1.0
Content-Transfer-Encoding: base64
Content-Disposition: inline

X19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX18KQ0xTUUwgbWFp
bGluZyBsaXN0CkNMU1FMQGxpc3RzLmtwZS5pbwpodHRwOi8vbGlzdHMua3BlLmlvL2NnaS1iaW4v
bWFpbG1hbi9saXN0aW5mby9jbHNxbAo=

--0__=NVYIZYEYDZYTJTIRZYRWVKNXMRWIOOITUFZCXUVCPSFSCRNSESAYHIKL--