(defun membro? (obj lista) (cond ((null lista) nil) ((eql obj (first lista)) t) (t (membro? obj (rest lista)))))
Esta função já existe em Lisp e denomina-se member. Quando ela encontra um elemento igual na lista devolve o resto dessa lista.
> (member 3 '(1 2 3 4 5 6)) (3 4 5 6)