X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fserve-event.lisp;h=2046161d50e586c83450b675759062e2e446511b;hb=95591ed483dbb8c0846c129953acac1554f28809;hp=00e3dec1eb00e4111e2ec72c546b3c4565b345d4;hpb=f251802ba07257a9b3a23eca02cfd89ad9d6e6b9;p=sbcl.git

diff --git a/src/code/serve-event.lisp b/src/code/serve-event.lisp
index 00e3dec..2046161 100644
--- 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))
-                 (#.sb!unix:eintr
+                 ((#.sb!unix:eintr #.sb!unix:eagain)
                   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)