[info-mcl] process crash

[Doug Currie]

On Jul 20, 2009, at 7:22 PM, Alexander Repenning wrote:

> Just wondering... has anybody found any work around the process  
> problems in RMCL. At least so far I have not been able to use  
> process-run-function in a way that is NOT causing a crash.

We do it this way, and it works:

(defun nav-top-loop ()
   (loop
     (if (eq (catch :toplevel (nav-user-loop)) ccl::$xstkover)
       (navlog "~&;[Nav Task stacks reset due to overflow.]"))))

(defun start-nav-user-process ()
   (setq *nav-user-process*
         (process-run-function `(:name "Nav Task"
                                 :restart-after-reset t)
                               #'nav-top-loop)))

Also this at the top level of a file that is the :init-file arg of a  
save-application:

(progn
   (process-run-function "Boot Load" #'bootstrap-load-file-set :boot))

e

-- 
Doug Currie, CTO
Parallel Simulation Technology LLC
5 Dartmouth Drive
Auburn, NH  03032 USA
Tel. 603-644-4500     main
Tel. 603-622-3749 x41 direct