Create a matcher function from SPEC.
(defun make-matcher (spec) "Create a matcher function from SPEC." (let ((%bind-vars% '())) (declare (special %bind-vars%)) (values (%make-matcher spec) %bind-vars%)))