Commit 0232d224 authored by Raymond Toy's avatar Raymond Toy
Browse files

Fix ticket:77 by adding the code given in the ticket.

parent 50b13399
...@@ -1972,3 +1972,20 @@ ...@@ -1972,3 +1972,20 @@
,lock 2 *current-process* nil) ,lock 2 *current-process* nil)
#-x86 (when (eq (lock-process ,lock) *current-process*) #-x86 (when (eq (lock-process ,lock) *current-process*)
(setf (lock-process ,lock) nil))))))) (setf (lock-process ,lock) nil)))))))
(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)))
...@@ -42,6 +42,7 @@ New in this release: ...@@ -42,6 +42,7 @@ New in this release:
* :I486 and :PENTIUM (Always assume we're running on at least a * :I486 and :PENTIUM (Always assume we're running on at least a
Pentium.) Pentium.)
* Update unicode to support Unicode 6.2. * Update unicode to support Unicode 6.2.
* Add MP:JOIN-THREAD, as given in ticket #77.
* ANSI compliance fixes: * ANSI compliance fixes:
* Attempts to modify the standard readtable or the standard pprint * Attempts to modify the standard readtable or the standard pprint
...@@ -70,6 +71,7 @@ New in this release: ...@@ -70,6 +71,7 @@ New in this release:
* Ticket #74 fixed. * Ticket #74 fixed.
* Ticket #76 fixed. * Ticket #76 fixed.
* Ticket #79 fixed. * Ticket #79 fixed.
* Ticket #77 fixed.
* Other changes: * Other changes:
* -8 option for build-all.sh is deprecated since we don't * -8 option for build-all.sh is deprecated since we don't
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment