Resposta ao exercício 54

(defun substitui (novo velho lista)
   (cond ((null lista) nil)
         ((eql velho (first lista))
          (cons novo (substitui novo velho (rest lista))))
         (t (cons (first lista)
                  (substitui novo velho (rest lista))))))

Esta função já existe em Lisp e denomina-se subst.