(defun elimina (elem lista) (cond ((null lista) nil) ((eql elem (first lista)) (elimina elem (rest lista))) (t (cons (first lista) (elimina elem (rest lista))))))
Esta função já existe em Lisp e denomina-se remove.