Function First-Match-Pos

Part of:

package cl-perec
( first-match-pos < pat1 > < input > < start > )
Find the first position that pat1 could possibly match input,
starting at position start. If pat1 is non-constant, then just
return start.