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