Arf-p?

(define (arfp visibleObject)
  (cond
     ((eq visibleObject food) t)
     ((eq visibleObject cat) t)
     ((eq visibleObject human) t)
     (t t)))


Arf.  (p?)