Ignore:
Timestamp:
Nov 1, 2008, 5:54:42 AM (11 years ago)
Author:
gb
Message:

JOIN-PROCESS: don't signal an error if the process we're waiting for
dies prematurely and doesn't update its PROCESS-RESULT.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-processes.lisp

    r11225 r11281  
    723723      path)))
    724724
    725 (defmethod join-process ((p process) &key (default nil defaultp))
     725(defmethod join-process ((p process) &key default)
    726726  (wait-on-semaphore (process-termination-semaphore p) nil "join-process")
    727727  (let ((result (process-result p)))
    728728    (cond ((car result) (values-list (cdr result)))
    729           (defaultp default)
    730           (t (error "Failed to join ~s" p)))))
    731 
    732 
     729          (t default))))
     730
     731
Note: See TracChangeset for help on using the changeset viewer.