Update of /project/mcclim/cvsroot/mcclim/Lisp-Dep In directory clnet:/tmp/cvs-serv22271/Lisp-Dep
Modified Files: mp-sbcl.lisp Log Message: Fixed EVENT-QUEUE-READ-WITH-TIMEOUT to return on timeout. Previously it would just continue silently.
* input.lisp (EVENT-QUEUE-READ-WITH-TIMEOUT): return if condition-wait returns nil.
* Lisp-Dep/mp-sbcl.lisp (CONDITION-WAIT): Return T from a normalcondition wait and NIL from a timeout, like mp-acl.lisp does it.
--- /project/mcclim/cvsroot/mcclim/Lisp-Dep/mp-sbcl.lisp 2007/11/28 08:11:12 1.10 +++ /project/mcclim/cvsroot/mcclim/Lisp-Dep/mp-sbcl.lisp 2007/12/16 23:20:11 1.11 @@ -202,11 +202,12 @@ (if timeout (handler-case (sb-ext:with-timeout timeout - (sb-thread:condition-wait cv lock)) + (sb-thread:condition-wait cv lock) + t) (sb-ext:timeout (c) (declare (ignore c)) nil)) - (sb-thread:condition-wait cv lock))) + (progn (sb-thread:condition-wait cv lock) t)))
(defun condition-notify (cv) (sb-thread:condition-notify cv))