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

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Fri Aug  8 16:22:59 2008
New Revision: 421

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 16:22:59 2008
@@ -335,7 +335,7 @@
                (count err)
                (sb-unix:unix-fast-select
                 (1+ (reduce #'max (wait-list-%wait sockets))
-                            :key #'sb-bsd-sockets:socket-file-descriptor))
+                            :key #'sb-bsd-sockets:socket-file-descriptor)
                 (sb-alien:addr rfds) nil nil
                 (when timeout secs) musecs)
 	     (if (null count)
@@ -346,7 +346,7 @@
                    (dolist (x (wait-list-%wait sockets))
                      (when (sb-unix:fd-isset
                             (sb-bsd-sockets:socket-file-descriptor x) rfds)
-                       (setf (state x) :READ)))))))))
+                       (setf (state x) :READ))))))))))
 
   #+win32
   (warn "wait-for-input not (yet!) supported...")