Function Segment-Pattern-P

Part of:

package cl-perec
( segment-pattern-p < pattern > )
Is this a segment-matching pattern like ((?* var) . pat)?