1.0.15.5: handler from COPY-DESCRIPTOR-TO-STREAM to check EINTR from select()

 * Just return, and continue copying the next time. Reported by Vitaly
   Mayatskikh on sbcl-devel.

diff --git a/src/code/run-program.lisp b/src/code/run-program.lisp
index df3e173..9a59ddb 100644 (file)
--- a/src/code/run-program.lisp
+++ b/src/code/run-program.lisp
@@ -830,9 +830,11 @@ Users Manual for details about the PROCESS structure."#-win32"
                                          (ash 1 descriptor)
                                          0 0 0)
                   (cond ((null result)
-                         (error "~@<couldn't select on sub-process: ~
-                                           ~2I~_~A~:>"
-                                (strerror readable/errno)))
+                         (if (eql sb-unix:eintr readable/errno)
+                             (return)
+                             (error "~@<Couldn't select on sub-process: ~
+                                        ~2I~_~A~:>"
+                                    (strerror readable/errno))))
                         ((zerop result)
                          (return))))
                 (multiple-value-bind (count errno)

diff --git a/version.lisp-expr b/version.lisp-expr
index d796916..b9a44bb 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.15.4"
+"1.0.15.5"