Changeset 11411


Ignore:
Timestamp:
Nov 19, 2008, 4:40:25 AM (11 years ago)
Author:
gz
Message:

r11281 from trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-processes.lisp

    r11267 r11411  
    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.