prj@po.cwru.edu (Paul Jarc) writes:
>
>   (let* ((pid (apply system*/nowait args))
>          (old-int  (sigaction SIGINT  SIG_IGN))
>          (old-quit (sigaction SIGQUIT SIG_IGN))

In glibc the ignores are put on before the fork (and undone again in
the child).  Presumably to avoid a gap where the child is running but
the parent is not yet ignoring.

Oh, and SIGCHLD is blocked until after waitpid.

(Code below, for those who don't have it handy.)