Changeset 423

Timestamp:

08/08/08 21:08:41 (4 months ago)

Author:

ehuelsmann

Message:

Fix the fixed fix.

Files:

• usocket/trunk/backend/sbcl.lisp (modified) (1 diff)

usocket/trunk/backend/sbcl.lisp

@@ -335 +335 @@
                (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)