Respect RFC in regards to fields number - 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 4878ed433802ca7d743d3976987c94be4561b6a6
 (DIR) parent ce069ce71e3dfd569110f0596f74d2693afb7c74
 (HTM) Author: Solene Rapenne <solene@perso.pw>
       Date:   Mon, 11 Mar 2019 14:22:01 +0100
       
       Respect RFC in regards to fields number
       
       Diffstat:
         M clic.lisp                           |       3 ++-
       
       1 file changed, 2 insertions(+), 1 deletion(-)
       ---
 (DIR) diff --git a/clic.lisp b/clic.lisp
       @@ -144,6 +144,7 @@
                           sock
                           :external-format '(:utf-8 :eol-style :lf)
                           :unwrap-stream-p t
       +                   ;;:verify nil
                           :hostname host)))
                         ;; store in metadata that we are using TLS
                     (setf (location-tls (car *history*)) t)
       @@ -184,7 +185,7 @@
                  (field      (split (subseq line 1) #\Tab)))
        
              ;; if split worked
       -      (when (= (length field) 4)
       +      (when (>= (length field) 4)
                (let ((line-number (+ 1 (hash-table-count *links*)))
                      (text (car field))
                      (uri  (cadr field))