>>>>> "kt" == Kevin Tor <[EMAIL PROTECTED]> writes:
kt> (if (ext:process-p model-process)
kt> (ext:process-close model-process))
kt>
kt> The if statement closes the program's running window when its done and
kt> allows me to continue on.
I am assuming that you have started the process using the ":wait nil"
option to EXT:RUN-PROGRAM, and that at some later stage you wish to
kill the process if it's still running. If I've misunderstood, please
restate your situation more clearly.
You can try something like
(when (eql :running (ext:process-status model-process))
(ext:process-kill model-process unix:SIGTERM)
(sleep 1)
(ext:process-kill model-process unix:SIGKILL))
(ext:process-close model-process)
--
Eric Marsden <URL:http://www.laas.fr/~emarsden/>
