[mcclim-cvs] CVS mcclim

[dlichteblau]

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