+7 Jan 2009 Kevin Rosenberg <kevin@rosenberg.net>
+ * Version 4.2.1
+ * sql/utils.lisp: Changes to support Lispworks 6
+
10 Dec 2009 Kevin Rosenberg <kevin@rosenberg.net>
* Version 4.2.0
* doc/ref-ooddl.lisp: Add needed CDATA escapes
+cl-sql (4.2.1-1) unstable; urgency=low
+
+ * New upstream
+
+ -- Kevin M. Rosenberg <kmr@debian.org> Thu, 07 Jan 2010 11:03:33 -0700
+
cl-sql (4.2.0-1) unstable; urgency=low
* New upstream
(string identifier))))
(substitute #\_ #\- unescaped)))
+#+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)))
+
(defmacro without-interrupts (&body body)
#+allegro `(mp:without-scheduling ,@body)
#+clisp `(progn ,@body)
#+cmu `(system:without-interrupts ,@body)
- #+lispworks `(mp:without-preemption ,@body)
+ #+lispworks
+ (if +lw-has-without-preemption+
+ `(mp:without-preemption ,@body)
+ `(mp:with-exclusive-lock (+lw-global-lock+)
+ ,@body))
#+openmcl `(ccl:without-interrupts ,@body)
#+sbcl `(sb-sys::without-interrupts ,@body))