[Openmcl-cvs-notifications] r8990 - /trunk/source/level-1/linux-files.lisp

[gb at clozure.com]

Author: gb
Date: Wed Apr  2 04:19:05 2008
New Revision: 8990

Log:
Use FF-CALL-IGNORING-INTR around #_waitpid call in CHECK-PID.
(Not sure what the consequences of not ignoring #$EINTR here
are, but they may not be good.)



Modified:
    trunk/source/level-1/linux-files.lisp

Modified: trunk/source/level-1/linux-files.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/level-1/linux-files.lisp (original)
+++ trunk/source/level-1/linux-files.lisp Wed Apr  2 04:19:05 2008
@@ -1052,7 +1052,7 @@
 (defun check-pid (pid &optional (flags (logior  #$WNOHANG #$WUNTRACED)))
   (declare (fixnum pid))
   (rlet ((status :signed))
-    (let* ((retval (#_waitpid pid status flags)))
+    (let* ((retval (ff-call-ignoring-eintr (#_waitpid pid status flags))))
       (declare (fixnum retval))
       (if (=3D retval pid)
 	(pref status :signed)