From 26fbc38141b4a8ad7c3d1a4cd7d3e4ff54b5fae6 Mon Sep 17 00:00:00 2001 From: "Scott C. MacCallum" Date: Mon, 14 Nov 2022 19:38:01 -0500 Subject: [PATCH] Minor changes --- another-question.lisp | 26 ++++++++++++-------------- 1 file changed, 12 insertions(+), 14 deletions(-) diff --git a/another-question.lisp b/another-question.lisp index 10b912c..4fcc10b 100644 --- a/another-question.lisp +++ b/another-question.lisp @@ -2,8 +2,8 @@ ;; This program is part of the Betsy program, it is where Betsy asks the human if ;; they have another question -;; Copyright (C) 2015, 2016, 2018, 2020, 2021 Scott C. MacCallum -;; scm@sdf.org +;; Copyright (C) 2015, 2016, 2018, 2020, 2021, 2022 Scott C. MacCallum +;; (scm@sdf.org) ;; This program is free software: you can redistribute it and/or modify it under ;; the terms of the GNU Affero General Public License as published by the Free @@ -30,17 +30,15 @@ (princ " ] ") (setq *answer* (read-line)) (if (string-equal *answer* "no") - (progn - (princ *betsy*) - (princ "It was nice talking with you, ") - (princ *human*) - (princ ".") - (terpri) - (main))) + (progn (princ *betsy*) + (princ "It was nice talking with you, ") + (princ *human*) + (princ ".") + (terpri) + (main))) (if (string-not-equal *answer* "yes") - (progn - (princ *betsy*) - (princ "Please answer me with a yes or no.") - (terpri) - (another-question))) + (progn (princ *betsy*) + (princ "Please answer me with a yes or no.") + (terpri) + (another-question))) (question))