Changeset 7330 for trunk/ccl/lib/ccl-export-syms.lisp

Timestamp:

Oct 1, 2007, 6:13:02 PM (13 years ago)

Author:

wws

Message:

(join-process (p process) &key default)

Waits for process p to quit. Returns the values returned by it initial
function if it quits normally. If killed, returns default if
specified, or signals an error otherwise.
Patterned after SBCL's join-thread function.

File:

• trunk/ccl/lib/ccl-export-syms.lisp (modified) (1 diff)

trunk/ccl/lib/ccl-export-syms.lisp

@@ -433 +433 @@
      default-allocation-quantum
      current-process-allocation-quantum
+     join-process
 
      *HOST-PAGE-SIZE*