X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fserve-event.lisp;h=2faa4013daa471bae4f37ad247ee7377721a98fc;hb=7254da92a1ba1bf8bc5a2e78a29d993f272d526e;hp=2b72d840f61b26227d1692e6ee984b8d0ce819f5;hpb=f48ea2de68cabd283203219cf2393e2825fac8e9;p=sbcl.git

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