Plaster

(and (eq (type-of result) 'function) (not (eq 'function (typecase result (function 'function) (t 't)))))