X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fserve-event.lisp;h=908b4ce79c6aa3b093ee8bb63f11c6a1d2d93c96;hb=48ec282d877900caf5ea4ab42e9d87e566ce6b43;hp=426a48aa69ad0e12d7cde6cc92d6b68650450db3;hpb=4898ef32c639b1c7f4ee13a5ba566ce6debd03e6;p=sbcl.git

diff --git a/src/code/serve-event.lisp b/src/code/serve-event.lisp
index 426a48a..908b4ce 100644
--- 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)