From 3ccd2c124ae60833f54406a2b478d13835e4b7df Mon Sep 17 00:00:00 2001 From: Anton Kovalenko Date: Thu, 14 Oct 2010 03:18:06 +0400 Subject: [PATCH] Avoid some exceptions in WAIT-UNTIL-FD-USABLE on Windows Always report the :output direction as usable on win32. Fixes this function as needed for sb-simple-streams. Thanks to Anton Kovalenko. --- src/code/serve-event.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/code/serve-event.lisp b/src/code/serve-event.lisp index 2b72d84..2faa401 100644 --- a/src/code/serve-event.lisp +++ b/src/code/serve-event.lisp @@ -211,7 +211,8 @@ waiting." (loop for to-msec = (if (and to-sec to-usec) (+ (* 1000 to-sec) (truncate to-usec 1000)) -1) - when (sb!unix:unix-simple-poll fd direction to-msec) + when (or #!+win32 (eq direction :output) + (sb!unix:unix-simple-poll fd direction to-msec)) do (return-from wait-until-fd-usable t) else do (when to-sec (maybe-update-timeout)))))))) -- 1.7.10.4