Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv22271

Modified Files: input.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/input.lisp 2007/12/16 22:41:51 1.38 +++ /project/mcclim/cvsroot/mcclim/input.lisp 2007/12/16 23:20:10 1.39 @@ -97,7 +97,8 @@ (return res)) (when wait-function (warn "event-queue-read-with-timeout ignoring predicate")) - (condition-wait (event-queue-processes eq) lock timeout)))))) + (unless (condition-wait (event-queue-processes eq) lock timeout) + (return)))))))

(defmethod event-queue-append ((eq standard-event-queue) item) "Append the item at the end of the queue. Does event compression."