[Openmcl-cvs-notifications] r11281 - /trunk/source/level-1/l1-processes.lisp

[gb at clozure.com]

Author: gb
Date: Sat Nov  1 01:54:42 2008
New Revision: 11281

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

Modified:
    trunk/source/level-1/l1-processes.lisp

Modified: trunk/source/level-1/l1-processes.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/level-1/l1-processes.lisp (original)
+++ trunk/source/level-1/l1-processes.lisp Sat Nov  1 01:54:42 2008
@@ -722,11 +722,10 @@
                               (make-broadcast-stream out f)))))
       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))))
+
+