scm
/
betsy
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Minor changes

This commit is contained in:
Scott C. MacCallum 2022-11-14 19:38:01 -05:00
parent be08571a9c
commit 26fbc38141
1 changed files with 12 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
another-question.lisp
View File

@ -2,8 +2,8 @@
;; This program is part of the Betsy program, it is where Betsy asks the human if ;; This program is part of the Betsy program, it is where Betsy asks the human if
;; they have another question ;; they have another question
;; Copyright (C) 2015, 2016, 2018, 2020, 2021 Scott C. MacCallum ;; Copyright (C) 2015, 2016, 2018, 2020, 2021, 2022 Scott C. MacCallum
;; scm@sdf.org ;; (scm@sdf.org)
;; This program is free software: you can redistribute it and/or modify it under ;; 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 ;; the terms of the GNU Affero General Public License as published by the Free
@ -30,17 +30,15 @@
(princ " ] ") (princ " ] ")
(setq *answer* (read-line)) (setq *answer* (read-line))
(if (string-equal *answer* "no") (if (string-equal *answer* "no")
(progn (progn (princ *betsy*)
(princ *betsy*) (princ "It was nice talking with you, ")
(princ "It was nice talking with you, ") (princ *human*)
(princ *human*) (princ ".")
(princ ".") (terpri)
(terpri) (main)))
(main)))
(if (string-not-equal *answer* "yes") (if (string-not-equal *answer* "yes")
(progn (progn (princ *betsy*)
(princ *betsy*) (princ "Please answer me with a yes or no.")
(princ "Please answer me with a yes or no.") (terpri)
(terpri) (another-question)))
(another-question)))
(question)) (question))