[mcclim-cvs] CVS mcclim

[dlichteblau]

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

Modified Files:
	input.lisp 
Log Message:
In EVENT-QUEUE-READ-WITH-TIMEOUT, warn about the WAIT-FUNCTION being
ignored only if a WAIT-FUNCTION was specified.


--- /project/mcclim/cvsroot/mcclim/input.lisp	2006/07/09 06:23:22	1.37
+++ /project/mcclim/cvsroot/mcclim/input.lisp	2007/12/16 22:41:51	1.38
@@ -88,7 +88,6 @@
 
 (defmethod event-queue-read-with-timeout ((eq standard-event-queue)
                                           timeout wait-function)
-  (declare (ignore wait-function))	
   (let ((lock (event-queue-lock eq)))
     (with-lock-held (lock)
       (loop
@@ -96,7 +95,8 @@
 	 (let ((res (event-queue-read-no-hang/locked eq)))
 	   (when res
 	     (return res))
-	   (warn "event-queue-read-with-timeout ignoring predicate")
+	   (when wait-function
+	     (warn "event-queue-read-with-timeout ignoring predicate"))
 	   (condition-wait (event-queue-processes eq) lock timeout))))))
 
 (defmethod event-queue-append ((eq standard-event-queue) item)