Display new content from the top of the terminal - 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 e0ce3c254b17217ace031bd6db0ea9e32ef56beb
 (DIR) parent 7ced408e5481c25f6e613d639c599aa89d84d5c9
 (HTM) Author: Solene Rapenne <solene@perso.pw>
       Date:   Thu, 14 Dec 2017 11:08:16 +0100
       
       Display new content from the top of the terminal
       
       Diffstat:
         M clic.lisp                           |      10 +++++++---
       
       1 file changed, 7 insertions(+), 3 deletions(-)
       ---
 (DIR) diff --git a/clic.lisp b/clic.lisp
       @@ -268,7 +268,8 @@
          ;; and display it
          (loop for bookmark in *bookmarks*
             counting bookmark into line-number
       -     while bookmark do
       +     while bookmark
       +     do
               (progn
                 (setf (gethash line-number *links*)  bookmark)
                 (print-with-color (concatenate 'string
       @@ -404,8 +405,11 @@
                           (loop-finish))))))
        
              ;; in case of shell command, do it
       -      (when input
       -        (user-input input)))))
       +      (if input
       +          (user-input input)
       +          (when (< (length *buffer*) rows)
       +            (dotimes (i (- rows (length *buffer*)))
       +              (format t "~%")))))))
        
        (defun visit(destination)
          "visit a location"