[mcclim-cvs] CVS mcclim/Lisp-Dep

[dlichteblau]

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