Changeset 11411

Timestamp:

Nov 19, 2008, 4:40:25 AM (11 years ago)

Author:

gz

Message:

r11281 from trunk

File:

• branches/working-0711/ccl/level-1/l1-processes.lisp (modified) (1 diff)

branches/working-0711/ccl/level-1/l1-processes.lisp

@@ -723 +723 @@
       path)))
 
-(defmethod join-process ((p process) &key (default nil defaultp))
+(defmethod join-process ((p process) &key default)
   (wait-on-semaphore (process-termination-semaphore p) nil "join-process")
   (let ((result (process-result p)))
     (cond ((car result) (values-list (cdr result)))
-          (defaultp default)
-          (t (error "Failed to join ~s" p)))))
-
-
+          (t default))))
+
+