From 7a98df4a5a08af094d2d8921ac4f4b4f04b59196 Mon Sep 17 00:00:00 2001
From: cage <cage-invalid@invalid>
Date: Tue, 29 Dec 2020 20:36:42 +0100
Subject: [PATCH] - [gemini] fix split when separator is at the end of a path.

---
 src/gemini/client.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/gemini/client.lisp b/src/gemini/client.lisp
index 0a5e3d3..02b53b9 100644
--- a/src/gemini/client.lisp
+++ b/src/gemini/client.lisp
@@ -285,7 +285,7 @@
       (values certificate key))))
 
 (defun percent-encode-path (path)
-  (let ((splitted (split "/" path)))
+  (let ((splitted (split "/" path :limit (1+ (length path)))))
     (if splitted
         (reduce (lambda (a b) (strcat a "/" (maybe-percent-encode b)))
                 splitted)