[usocket-cvs] r313 - usocket/trunk/backend

[ehuelsmann at common-lisp.net]

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