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)