projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.9.8.34:
[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)
(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)
;; Now see what it was (if anything)
(cond (value
(cond ((zerop value)
@@
-319,6
+319,7
@@
(funcall *periodic-polling-function*)))
(t
(call-fd-handler))))
(funcall *periodic-polling-function*)))
(t
(call-fd-handler))))
+ #!-win32
((eql err sb!unix:eintr)
;; We did an interrupt.
t)
((eql err sb!unix:eintr)
;; We did an interrupt.
t)