i f it i s a symbol t h a t has one. "

(when (symbolp x) ( g e t x 'segment-match)))

(defun singl e-match-fn (x)

"Get the single-match function f o r x,