Estou com dúvidas em como fazer uma outra função para exclusão do nome e do telefone.
Segue o código que fiz:
(defun incluir (Agenda NomeTelefone)
(cond ((atom A) (cons NT 'nil))
((equal (car NT) (caar A))
(cond ((existeFone (cadr NT) (cdar A))A)
('t (cons(cons(car NT)(cons (cadr NT)(cdar A))) (cdr A)))))
('t (cons(car A)(incluir (cdr A) NT)))))
//função existeFone
(defun existeFone (NT A)
(cond ((equal NT A) A)
('t (cons (cons(car NT)(cons (cadr NT)(cdar A))) (cdr A))))
existeFone
, não? (antes deNT
, antes de(equal
e um fechando no final).