Request use \r\n instead of \n - clic - Clic is an command line interactive client for gopher written in Common LISP (HTM) git clone git://bitreich.org/clic/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/clic/ (DIR) Log (DIR) Files (DIR) Refs (DIR) Tags (DIR) README (DIR) LICENSE --- (DIR) commit 57ee48248441d6a164067c9652f20721a284757a (DIR) parent a7fb4e4758b562ca2c69e370619794b421263528 (HTM) Author: Solene Rapenne <solene@perso.pw> Date: Tue, 23 Jan 2018 20:22:53 +0100 Request use \r\n instead of \n Diffstat: M clic.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) --- (DIR) diff --git a/clic.lisp b/clic.lisp @@ -267,8 +267,8 @@ (progn (format t "Input : ") (let ((user-input (read-line nil nil))) - (format stream "~a ~a~%" uri user-input))) - (format stream "~a~%" uri)) + (format stream "~a ~a~a~a" uri user-input #\Return #\Newline))) + (format stream "~a~a~a" uri #\Return #\Newline)) (force-output stream) (if binary @@ -575,6 +575,7 @@ (force-output) (let ((first-input (read-char))) (if (char= #\NewLine first-input) + ;; we hide previous line (prompt) (format t "'~C[A~C[K~C" #\Escape #\Escape #\return) (progn (unread-char first-input)