iRespect RFC in regards to fields number - clic - Clic is an command line interactive client for gopher written in Common LISP	Err	bitreich.org	70
hgit clone git://bitreich.org/clic/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/clic/	URL:git://bitreich.org/clic/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/clic/	bitreich.org	70
1Log	/scm/clic/log.gph	bitreich.org	70
1Files	/scm/clic/files.gph	bitreich.org	70
1Refs	/scm/clic/refs.gph	bitreich.org	70
1Tags	/scm/clic/tag	bitreich.org	70
1README	/scm/clic/file/README.md.gph	bitreich.org	70
1LICENSE	/scm/clic/file/LICENSE.gph	bitreich.org	70
i---	Err	bitreich.org	70
1commit 4878ed433802ca7d743d3976987c94be4561b6a6	/scm/clic/commit/4878ed433802ca7d743d3976987c94be4561b6a6.gph	bitreich.org	70
1parent ce069ce71e3dfd569110f0596f74d2693afb7c74	/scm/clic/commit/ce069ce71e3dfd569110f0596f74d2693afb7c74.gph	bitreich.org	70
hAuthor: Solene Rapenne <solene@perso.pw>	URL:mailto:solene@perso.pw	bitreich.org	70
iDate:   Mon, 11 Mar 2019 14:22:01 +0100	Err	bitreich.org	70
i	Err	bitreich.org	70
iRespect RFC in regards to fields number	Err	bitreich.org	70
i	Err	bitreich.org	70
iDiffstat:	Err	bitreich.org	70
i  M clic.lisp                           |       3 ++-	Err	bitreich.org	70
i	Err	bitreich.org	70
i1 file changed, 2 insertions(+), 1 deletion(-)	Err	bitreich.org	70
i---	Err	bitreich.org	70
1diff --git a/clic.lisp b/clic.lisp	/scm/clic/file/clic.lisp.gph	bitreich.org	70
i@@ -144,6 +144,7 @@	Err	bitreich.org	70
i                    sock	Err	bitreich.org	70
i                    :external-format '(:utf-8 :eol-style :lf)	Err	bitreich.org	70
i                    :unwrap-stream-p t	Err	bitreich.org	70
i+                   ;;:verify nil	Err	bitreich.org	70
i                    :hostname host)))	Err	bitreich.org	70
i                  ;; store in metadata that we are using TLS	Err	bitreich.org	70
i              (setf (location-tls (car *history*)) t)	Err	bitreich.org	70
i@@ -184,7 +185,7 @@	Err	bitreich.org	70
i           (field      (split (subseq line 1) #\Tab)))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i       ;; if split worked	Err	bitreich.org	70
i-      (when (= (length field) 4)	Err	bitreich.org	70
i+      (when (>= (length field) 4)	Err	bitreich.org	70
i         (let ((line-number (+ 1 (hash-table-count *links*)))	Err	bitreich.org	70
i               (text (car field))	Err	bitreich.org	70
i               (uri  (cadr field))	Err	bitreich.org	70
.