Resposta ao exercício 52

(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)