Changeset 11411
- Timestamp:
- Nov 19, 2008, 4:40:25 AM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/working-0711/ccl/level-1/l1-processes.lisp
r11267 r11411 723 723 path))) 724 724 725 (defmethod join-process ((p process) &key (default nil defaultp))725 (defmethod join-process ((p process) &key default) 726 726 (wait-on-semaphore (process-termination-semaphore p) nil "join-process") 727 727 (let ((result (process-result p))) 728 728 (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.