[usocket-cvs] r360 - usocket/branches/new-wfi

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Thu Jul  3 17:29:44 2008
New Revision: 360

Modified:
   usocket/branches/new-wfi/usocket.lisp
Log:
Fix new-wfi code (generic part).

Modified: usocket/branches/new-wfi/usocket.lisp
==============================================================================
--- usocket/branches/new-wfi/usocket.lisp	(original)
+++ usocket/branches/new-wfi/usocket.lisp	Thu Jul  3 17:29:44 2008
@@ -275,7 +275,7 @@
           (values (if ready-only socks socket-or-sockets) to)))))
   (let* ((start (get-internal-real-time))
          (sockets-ready 0))
-    (dolist (x (wait-list-waiters sockets))
+    (dolist (x (wait-list-waiters socket-or-sockets))
       (when (setf (state x)
                   (if (and (stream-usocket-p x)
                            (listen (socket-stream x)))