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 - 01 Dec 2021 19:30:25