[usocket-cvs] r362 - usocket/branches/new-wfi/backend

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Fri Jul  4 19:19:05 2008
New Revision: 362

Modified:
   usocket/branches/new-wfi/backend/clisp.lisp
Log:
Fix CLISP backend.

Modified: usocket/branches/new-wfi/backend/clisp.lisp
==============================================================================
--- usocket/branches/new-wfi/backend/clisp.lisp	(original)
+++ usocket/branches/new-wfi/backend/clisp.lisp	Fri Jul  4 19:19:05 2008
@@ -144,14 +144,15 @@
         (split-timeout (or timeout 1))
       (dolist (x (wait-list-%wait wait-list))
         (setf (cdr x) :INPUT))
-      (let* ((status-list (if timeout
+      (let* ((request-list (wait-list-%wait wait-list))
+             (status-list (if timeout
                               (socket:socket-status request-list secs musecs)
                             (socket:socket-status request-list)))
              (sockets (wait-list-waiters wait-list)))
         (do* ((x (pop sockets) (pop sockets))
               (y (pop status-list) (pop status-list)))
-             ((or (null sockets) (null status-list)))
-          (when y
+             ((null x))
+          (when (eq y :INPUT)
             (setf (state x) :READ)))
         wait-list))))