#77: Add JOIN-PROCESS -------------------------+-------------------------------------------------- Reporter: sionescu | Owner: somebody Type: enhancement | Status: new Priority: major | Milestone: Component: Core | Version: 2013-03-a Keywords: | -------------------------+--------------------------------------------------

Comment(by sionescu):

I added a workaround to Bordeaux-Threads, but it would be better to have this functionality in CMUCL itself:

{{{ (defun %make-thread (function name) (mp:make-process (lambda () (let ((return-values (multiple-value-list (funcall function)))) (setf (getf (mp:process-property-list mp:*current- process*) 'return-values) return-values) (values-list return-values))) :name name))

(defun join-thread (thread) (mp:process-wait (format nil "Waiting for thread ~A to complete" thread) (lambda () (not (mp:process-alive-p thread)))) (let ((return-values (getf (mp:process-property-list thread) 'return-values))) (values-list return-values))) }}}

#77: Add JOIN-PROCESS --------------------------+------------------------------------------------- Reporter: sionescu | Owner: somebody Type: enhancement | Status: reopened Priority: major | Milestone: Component: Core | Version: 2013-03-a Resolution: | Keywords: --------------------------+------------------------------------------------- Changes (by sionescu):

* status: closed => reopened * resolution: fixed =>

Comment:

Sorry I didn't specify that the code included was copied verbatim from Bordeaux-Threads. I make a proper patch available at https://github.com/sionescu/cmucl/commit/520441523f317e2c72c44c1d33516c3c0ce...