Loading fork.lisp +1 −1 Changes for fork.lisp: 1 added line, 1 removed line. Original line number Diff line number Diff line Loading @@ -36,7 +36,7 @@ ;; (it is of course safe after). The true fix to allow run-program to be invoked ;; at load-time would be to have an API for a process-waiting callbacks. #+(and sbcl unix) (sb-sys:default-interrupt sb-unix:sigchld)) ; ignore-interrupt is undefined for SIGCHLD. (sb-sys:enable-interrupt sb-unix:sigchld :default)) ; ignore-interrupt is undefined for SIGCHLD. (defun ncpus () (let ((ncpus (cond ((featurep :linux) Loading Loading
fork.lisp +1 −1 Changes for fork.lisp: 1 added line, 1 removed line. Original line number Diff line number Diff line Loading @@ -36,7 +36,7 @@ ;; (it is of course safe after). The true fix to allow run-program to be invoked ;; at load-time would be to have an API for a process-waiting callbacks. #+(and sbcl unix) (sb-sys:default-interrupt sb-unix:sigchld)) ; ignore-interrupt is undefined for SIGCHLD. (sb-sys:enable-interrupt sb-unix:sigchld :default)) ; ignore-interrupt is undefined for SIGCHLD. (defun ncpus () (let ((ncpus (cond ((featurep :linux) Loading