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)