<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.2719.2200" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial size=2>
<DIV><FONT face=Arial size=2>Hi everybody,</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2> I seeking for help regarding a
problem I have with ACT-R. I am not myself a good programmer with LISP and I
would like to integrate ACT-R to a program in LISP. The prob though is that
ACT-R need to be ran as a child process (in order not to block the rest of the
program). I've been trying to get it to work for the past few month but my LISP
skills (rather the lack of them) is a very big limitation. Would someone have
some example code and/or correct me on a small example such as the one at
the bottom. </FONT></DIV>
<DIV><FONT face=Arial size=2> Thanks to all,</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>_Stephane</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Code: </FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>(in-package :common-graphics-user)</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Arial size=2>(eval-when (:compile-top-level :load-top-level
:execute)<BR> (use-package :multiprocessing)<BR> (require
:process))</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Arial size=2><BR>(defun testactr ()<BR> (load-model-fct
"drunken" "sys:active;UT-bot;ACT-R;")<BR> (format t "~&------->
Getting the thread to run ~&")<BR> (mp:process-run-function
"act-r" (run))<BR> (format t "~&+-+-+-+> outside the thread
~&")<BR> (loop for n from 1 to
100<BR> do (format t "
_-_-_-_->> interfearences !!!!
;-)~&")))</FONT></DIV></FONT></DIV></BODY></HTML>