(setq AGENDA nil)

(setq AGENDA `(("Alice" 1) . ,AGENDA))
(setq AGENDA `(("Bob" 2) . ,AGENDA))
(setq AGENDA `(("Charlie" 3) . ,AGENDA))

(print AGENDA)

(defun incluir (lista elemento) `(,elemento . ,lista))

(setq AGENDA (incluir AGENDA '("Isabel" 3233876)))

(print AGENDA)