diff --git a/src/code/multi-proc.lisp b/src/code/multi-proc.lisp index e478a958facb624e9f1148f61090c8254e2fb332..4e2b1bcd78007a01fa3a3e7333f9f4a18a1c4eef 100644 --- a/src/code/multi-proc.lisp +++ b/src/code/multi-proc.lisp @@ -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)))