[usocket-cvs] r435 - usocket/branches/0.4.x/backend

[Erik Huelsmann]

Author: ehuelsmann
Date: Mon Oct 20 22:17:59 2008
New Revision: 435

Log:
Merge r418-423: Fix SBCL waiting backend.

Modified:
   usocket/branches/0.4.x/backend/sbcl.lisp

Modified: usocket/branches/0.4.x/backend/sbcl.lisp
==============================================================================
--- usocket/branches/0.4.x/backend/sbcl.lisp	(original)
+++ usocket/branches/0.4.x/backend/sbcl.lisp	Mon Oct 20 22:17:59 2008
@@ -330,7 +330,7 @@
            (multiple-value-bind
                (count err)
                (sb-unix:unix-fast-select
-                (1+ (reduce #'max (mapcar #'socket (wait-list-waiters sockets))
+                (1+ (reduce #'max (wait-list-%wait sockets)
                             :key #'sb-bsd-sockets:socket-file-descriptor))
                 (sb-alien:addr rfds) nil nil
                 (when timeout secs) musecs)
@@ -340,9 +340,10 @@
 		 (when (< 0 count)
 		   ;; process the result...
                    (dolist (x (wait-list-waiters sockets))
-                     (when (not (sb-unix:fd-isset
-                                 (sb-bsd-sockets:socket-file-descriptor (socket x))
-                                 rfds))
+                     (when (sb-unix:fd-isset
+                            (sb-bsd-sockets:socket-file-descriptor
+                             (socket x))
+                            rfds)
                        (setf (state x) :READ))))))))))
 
   #+win32