Pose une question binaire et utilise la réponse
(defun cacahuete (toto) (if (y-or-n-p (format "%s mange des cacahuetes ? " toto)) "Il a bien raison" "Il devrait")) (cacahuete "Toto")