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

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Fri Aug  8 16:21:32 2008
New Revision: 420

Modified:
   usocket/trunk/backend/sbcl.lisp
Log:
Fix the fix.

Modified: usocket/trunk/backend/sbcl.lisp
==============================================================================
--- usocket/trunk/backend/sbcl.lisp	(original)
+++ usocket/trunk/backend/sbcl.lisp	Fri Aug  8 16:21:32 2008
@@ -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...")