[usocket-cvs] r423 - usocket/trunk/backend

[ehuelsmann at common-lisp.net]

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)