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

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...")