Unverified Commit 90e8f251 authored by Chun Tian (binghe)'s avatar Chun Tian (binghe) Committed by GitHub
Browse files

Merge pull request #54 from thijs/fix-sbcl-read-select

Fix read-select in backend/sbcl.lisp to loop if interrupted
parents b055fe3a 52f82447
......@@ -122,13 +122,19 @@
"
int count;
struct timeval tv;
int retval = -1;
if (#0 != Cnil) {
tv.tv_sec = fixnnint(#0);
tv.tv_usec = #1;
}
@(return) = select(#3 + 1, (fd_set*)#2, NULL, NULL,
do {
retval = select(#3 + 1, (fd_set*)#2, NULL, NULL,
(#0 != Cnil) ? &tv : NULL);
} while ((retval < 0) && (errno == EINTR));
@(return) = retval;
" :one-liner nil)))
(cond
((= 0 count)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment