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