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--