[info-mcl] process crash

[Terje Norderhaug]

On Jul 21, 2009, at 12:35 PM, Ron Garret wrote:
> On Jul 21, 2009, at 11:39 AM, Terje Norderhaug wrote:
>> On Jul 20, 2009, at 4: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.
>>
>> I have found that there are some situations in which starting a
>> process on RMCL leads to a crash (G4/OSX 10.4.11) while starting a
>> process works fine in other situations. Perhaps by mapping it out, we
>> can find patterns and clues to resolve the issue?

I broke process-run-function into parts for a primitive step by step  
evaluation in the listener. It crashes consistently when doing  
process-preset, and never reaches process-enable.

(in-package :ccl)

(defparameter process
   (make-process "name"
                 :priority 0
                 :quantum *default-quantum*
                 :stack-size *default-process-stackseg-size*))

(process-preset
        process
        #'(lambda (restart-after-reset process function args abort- 
message)
            (loop
              (let* ((tag (process-reset-tag process))
                     (kill (catch tag
                             (with-standard-abort-handling abort-message
                               (apply function args))
                             (process-reset  
process :always :kill :force))))
                (when (and (neq kill :toplevel)
                           (or (unless restart-after-reset
                                 (setq kill t))
                               kill))
                  (throw tag kill)))))
        NIL process (lambda ()()) NIL "abort-message")

;; <=== crashes before we get here!

(process-enable process)

-- Terje Norderhaug