In some situations it may be useful to check whether there is a specific catch in the dynamic scope, and throw if there is such a catch. The function find-throw-tag and the macro throw-if-tag-found can be used in these circumstances.
LispWorks User Guide and Reference Manual - 20 Sep 2017