Clean screen before first display - 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 f5b0833db47c8cb4507cc83104f63698dd92f810
 (DIR) parent fb5155bf84450fec31f6b69a49fbdc07aee5aa70
 (HTM) Author: Solene Rapenne <solene@perso.pw>
       Date:   Fri,  6 Apr 2018 12:45:41 +0200
       
       Clean screen before first display
       
       Diffstat:
         M clic.lisp                           |       5 +++++
       
       1 file changed, 5 insertions(+), 0 deletions(-)
       ---
 (DIR) diff --git a/clic.lisp b/clic.lisp
       @@ -80,6 +80,10 @@
        (add-color 'http       0 33)
        ;;;; END ANSI colors
        
       +(defun clear()
       +  "Clear the screen"
       +  (format t "~A[H~@*~A[J" #\escape))
       +
        ;;;; is the output interactive or a pipe ?
        (defun ttyp()
          "return t if the output is a terminal"
       @@ -688,6 +692,7 @@
          display it and exit and finally, the redirected case where clic will
          print to stdout and exit."
        
       +  (clear)
          (ignore-errors ;; lisp is magic
            (let ((destination
                   (let ((argv (get-argv)))