The function barrier-enable
ensures that the barrier barrier is enabled after unblocking it if it is already enabled, and sets its count to count. If kill-waiting is true, barrier-enable
also kills any waiting threads. This is done by calling
(barrier-unblock barrier :reset-count count :kill-waiting kill-waiting)
LispWorks User Guide and Reference Manual - 13 Feb 2015