commit 4878ed433802ca7d743d3976987c94be4561b6a6 Solene Rapenne <solene@perso.pw> 2019-03-11 14:22:01 +0100 Respect RFC in regards to fields number
clic.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/clic.lisp b/clic.lisp index ba57271..b905b3a 100644 --- 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))