Predicate recognizing well-formed wormhole status object
General Form: (wormhole-statusp whs)
See wormhole. This predicate is useful in guards for wormholes. It checks whether whs is either nil or a cons whose car is :ENTER or :SKIP.