The new function hcl:any-capi-window-displayed-p is a predicate for whether any CAPI window (other than dialogs) is currently displayed.
hcl:any-capi-window-displayed-p
LispWorks Release Notes and Installation Guide - 23 Dec 2011