<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
</head>
<body text="#000000" bgcolor="#ffffff">
Since I am having some issues with process killing,<br>
I tried this, including running it many times.<br>
(I had to add "ccl:" in a few places.) It works<br>
fine with the release I'm using, 14324.<br>
<br>
-- Dan<br>
<br>
Michael Minerva wrote:
<blockquote type="cite" cite="mid:626C9C16-8ADE-44D2-9ECB-AB1E2096E8F5@agentsheets.com">Hey all,
<div><br>
</div>
<div>I have been having trouble killing a process in the application
that I am currently working on, so I decided to make a simpler example
using just basic ccl methods, and I experience the same problem. I was
wondering if anyone could help me understand what is going on. My
little program just makes a process which just prints to the console
then sleeps in a loop, then I assign this process to a local variable,
then I kill the process and print it out. Often times, even after I
have issues the command process-kill to the reference to the process,
the process continues printing. Sometimes when I print the process
after killing it, it says it is still active, sometimes it s says it is
exhausted and sometimes it says it is reset. According to the
documentation I found about this method it is supposed to "<span style="font-family: Times;" class="Apple-style-span">Causes a
specified process to cleanly exit from any ongoing computation, and
then exit.". </span>Can anyone help me understand why this is not
happening? Here is my example program. If you try it out make sure
to run it many times because it will often work correctly on the first
try. Also, when you see the behavior I have been experiencing you will
need to quit ccl to end the process. </div>
<div><br>
</div>
<div>
<div>(defun make-a-process()</div>
<div> (process-run-function</div>
<div> '(:name "my-process" :priority 1)</div>
<div> #'(lambda ()</div>
<div> (loop</div>
<div> (print "doing process things.")</div>
<div> (print *current-process*)</div>
<div> (sleep .01)))))</div>
<div><br>
</div>
<div>(defun process-test ()</div>
<div> (let ((my-process</div>
<div> (make-a-process)))</div>
<div> (print "kill process")</div>
<div> (process-kill my-process)</div>
<div> (print *current-process*)</div>
<div> (print "after kill")</div>
<div> (print my-process)</div>
<div> nil))</div>
<div><br>
</div>
<div>(process-test)</div>
</div>
<pre wrap="">
<hr width="90%" size="4">
_______________________________________________
Openmcl-devel mailing list
<a href="mailto:Openmcl-devel@clozure.com" class="moz-txt-link-abbreviated">Openmcl-devel@clozure.com</a>
<a href="http://clozure.com/mailman/listinfo/openmcl-devel" class="moz-txt-link-freetext">http://clozure.com/mailman/listinfo/openmcl-devel</a>
</pre>
</blockquote>
</body>
</html>