Author: ehuelsmann Date: Sun Feb 17 04:37:57 2008 New Revision: 313 Modified: usocket/trunk/backend/lispworks.lisp Log: Adapt LW backend WAIT-FOR-INPUT-INTERNAL to new general behaviour in caller, which already adjusts TIMEOUT. Modified: usocket/trunk/backend/lispworks.lisp ============================================================================== --- usocket/trunk/backend/lispworks.lisp (original) +++ usocket/trunk/backend/lispworks.lisp Sun Feb 17 04:37:57 2008 @@ -326,14 +326,7 @@ sockets)) (defun wait-for-input-internal (sockets &key timeout) - (wait-for-sockets sockets - (if (some #'(lambda (x) - (and (stream-usocket-p x) - (listen (socket-stream x)))) - sockets) - 0 ;; don't wait: there are streams which - ;; can be read from, even if not from the socket - timeout) + (wait-for-sockets sockets timeout) (sockets-ready sockets)) );; end of WIN32-block