From: Anton Kovalenko <anton@sw4me.com>
Date: Wed, 13 Oct 2010 23:18:06 +0000 (+0400)
Subject: Avoid some exceptions in WAIT-UNTIL-FD-USABLE on Windows
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=3ccd2c124ae60833f54406a2b478d13835e4b7df;p=sbcl.git

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

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