projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.29.13: relax CAST-EXTERNALLY-CHECKABLE-P a bit
[sbcl.git]
/
src
/
code
/
serve-event.lisp
diff --git
a/src/code/serve-event.lisp
b/src/code/serve-event.lisp
index
00e3dec
..
2046161
100644
(file)
--- a/
src/code/serve-event.lisp
+++ b/
src/code/serve-event.lisp
@@
-277,11
+277,12
@@
Shared between all threads, unless locally bound. EXPERIMENTAL.")
(case err
(#.sb!unix:ebadf
(handler-descriptors-error))
(case err
(#.sb!unix:ebadf
(handler-descriptors-error))
- (#.sb!unix:eintr
+ ((#.sb!unix:eintr #.sb!unix:eagain)
t)
(otherwise
(with-simple-restart (continue "Ignore failure and continue.")
t)
(otherwise
(with-simple-restart (continue "Ignore failure and continue.")
- (simple-perror "Unix system call select() failed" :errno err))))
+ (simple-perror "Unix system call select() failed"
+ :errno err))))
#!+win32
(handler-descriptors-error))
((plusp value)
#!+win32
(handler-descriptors-error))
((plusp value)