"Call the r i g h t function f o r t h i s kind o f segment p a t t e r n ."

(funcall (segment-match-fn ( f i r s t ( f i r s t p a t t e r n ) ) )

p a t t e r n i n p u t bindings))

(defun single-matcher (pattern input bindings)