Re: process crash
Doug Currie <[email protected]>
| Newsgroups | gmane.lisp.mcl.general |
|---|---|
| Message-ID | <[email protected]> |
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
_______________________________________________
info-mcl mailing list
[email protected]
http://clozure.com/mailman/listinfo/info-mcl