Function Single-Pattern-P

Part of:

package cl-perec
( single-pattern-p < pattern > )
Is this a single-matching pattern?
E.g. (?is x predicate) (?and . patterns) (?or . patterns).