0.9.8.7:

[sbcl.git] / src / code / serve-event.lisp

diff --git a/src/code/serve-event.lisp b/src/code/serve-event.lisp
index 426a48a..908b4ce 100644 (file)
--- a/src/code/serve-event.lisp
+++ b/src/code/serve-event.lisp
@@ -310,7 +310,7 @@
                                       (sb!alien:addr read-fds)
                                       (sb!alien:addr write-fds)
                                       nil to-sec to-usec)
-
+          #!+win32 (declare (ignorable err))
           ;; Now see what it was (if anything)
           (cond (value
                  (cond ((zerop value)
@@ -319,6 +319,7 @@
                           (funcall *periodic-polling-function*)))
                        (t
                         (call-fd-handler))))
+                #!-win32
                 ((eql err sb!unix:eintr)
                  ;; We did an interrupt.
                  t)