Function: cl--make-type-test

(fn VAL TYPE)