[FIX] stop crashing in case of invalid input in the shell - clic - Clic is an command line interactive client for gopher written in Common LISP HTML git clone git://bitreich.org/clic/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/clic/ DIR Log DIR Files DIR Refs DIR Tags DIR README DIR LICENSE --- DIR commit 2becc58109286c9eede222bd3595ab580b76dfea DIR parent 16c4a85655da1d9cc8a9dd2dadd15e563b7546de HTML Author: Solene Rapenne <solene@perso.pw> Date: Sat, 4 Nov 2017 16:17:18 +0000 [FIX] stop crashing in case of invalid input in the shell Diffstat: M clic.lisp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) --- DIR diff --git a/clic.lisp b/clic.lisp @@ -203,7 +203,9 @@ (format t "clic => ") (force-output) (loop for user-input = (format nil "~a" (read nil nil)) - while (not (string= "X" user-input)) + while (not (or + (string= "X" user-input) + (string= "Q" user-input))) do (cond ((string= "HELP" user-input) @@ -213,7 +215,7 @@ ((string= "H" user-input) (format t "~{~a~%~}" *history*)) (t - (when user-input + (ignore-errors (g (parse-integer user-input))))) (format t "clic => ") (force-output)))