Author: ehuelsmann Date: Fri Aug 8 17:08:41 2008 New Revision: 423
Modified: usocket/trunk/backend/sbcl.lisp Log: Fix the fixed fix.
Modified: usocket/trunk/backend/sbcl.lisp ============================================================================== --- usocket/trunk/backend/sbcl.lisp (original) +++ usocket/trunk/backend/sbcl.lisp Fri Aug 8 17:08:41 2008 @@ -334,8 +334,8 @@ (multiple-value-bind (count err) (sb-unix:unix-fast-select - (1+ (reduce #'max (wait-list-%wait sockets)) - :key #'sb-bsd-sockets:socket-file-descriptor) + (1+ (reduce #'max (wait-list-%wait sockets) + :key #'sb-bsd-sockets:socket-file-descriptor)) (sb-alien:addr rfds) nil nil (when timeout secs) musecs) (if (null count)