From 530e9c03499d88c12124be26bb8d2ead3d3c403c Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Tue, 11 Jan 2011 14:37:57 +0100 Subject: [PATCH] Move a few functions --- src/os/create-process-unix.lisp | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) diff --git a/src/os/create-process-unix.lisp b/src/os/create-process-unix.lisp index f474758..00aedcc 100644 --- a/src/os/create-process-unix.lisp +++ b/src/os/create-process-unix.lisp @@ -33,6 +33,15 @@ (print-unreadable-object (o s :type t :identity t) (format s "~S ~S" :pid (process-pid o)))) +(defmethod process-wait ((process process)) + (prog1 + (nth-value 1 (isys:waitpid (process-pid process) 0)) + (setf (slot-value process 'reaped) t))) + +(defmethod process-kill ((process process) &optional (signum :sigterm)) + (isys:kill (process-pid process) signum)) + + (defmacro with-lfp-spawn-arguments ((attributes file-actions pid) &body body) (with-gensyms (spawnattr-initialized-p file-actions-initialized-p) `(with-foreign-objects ((,attributes 'lfp-spawnattr-t) @@ -219,11 +228,3 @@ nil (slurp-stream-into-string (process-stderr process)))) (close process))))) - -(defmethod process-wait ((process process)) - (prog1 - (nth-value 1 (isys:waitpid (process-pid process) 0)) - (setf (slot-value process 'reaped) t))) - -(defmethod process-kill ((process process) &optional (signum :sigterm)) - (isys:kill (process-pid process) signum)) -- 2.11.4.GIT