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)
LispWorks User Guide and Reference Manual - 13 Feb 2015