The function
barrier-disable
unblocks the barrier
barrier
and then disables it. If
kill-waiting
is true,
barrier-disable
also kills any waiting thread. This is done by calling
(barrier-unblock
barrier
:disable t :kill-waiting
kill-waiting
)