Function Match-If

Part of:

package cl-perec
( match-if < pattern > < input > < bindings > )
Test an arbitrary expression involving variables.
The pattern looks like ((?if code) . rest).