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 @@
,lock 2 *current-process* nil)
#-x86 (when (eq (lock-process ,lock) *current-process*)
(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:
* :I486 and :PENTIUM (Always assume we're running on at least a
Pentium.)
* Update unicode to support Unicode 6.2.
* Add MP:JOIN-THREAD, as given in ticket #77.
* ANSI compliance fixes:
* Attempts to modify the standard readtable or the standard pprint
......@@ -70,6 +71,7 @@ New in this release:
* Ticket #74 fixed.
* Ticket #76 fixed.
* Ticket #79 fixed.
* Ticket #77 fixed.
* Other changes:
* -8 option for build-all.sh is deprecated since we don't
......
Markdown is supported
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