Edi Weitz <[EMAIL PROTECTED]> writes:
> What am I doing wrong? Or is it impossible to do what I want to do?
startup-idle-and-top-level-loops is actually a loop that never
returns. A second thread executes the REPL.
Here is slightly modified version of startup-idle-and-top-level-loops
that starts your threads instead of the REPL:
(defun startup-idle-loop ()
(assert (eq mp:*current-process* mp::*initial-process*) ()
"Only the *initial-process* is intended to run the idle loop")
(mp::init-multi-processing)
(bar)
(mp::idle-process-loop))
(ext:save-lisp "test.core"
:init-function 'cl-user::startup-idle-loop
:process-command-line nil
:load-init-file nil
:print-herald nil
:site-init nil
:batch-mode t)
Helmut.
