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)))