Shadowed FUNCTIONP and defined a default function for it.
Added new file with predicate DIRECT-SLOT-DEFINITION-P.