Commit 9d66b258 authored by Raymond Toy's avatar Raymond Toy
Browse files

Fix typo.

parent 9f62dcdf
......@@ -1977,6 +1977,6 @@
(setf (lock-process ,lock) nil)))))))
(defun process-join (process)
(mp:process-wait (format nil "Waiting for thread ~A to complete" thread)
(lambda () (not (mp:process-alive-p thread))))
(mp:process-wait (format nil "Waiting for thread ~A to complete" process)
(lambda () (not (mp:process-alive-p process))))
(values-list (process-%return-values process)))
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