From 9788bf12fbc3e7cbe0cedbdc109feab5ffa13949 Mon Sep 17 00:00:00 2001
From: cage <cage-invalid@invalid>
Date: Thu, 2 Jul 2020 20:26:40 +0200
Subject: [PATCH] - prevented crash when 'original-path' is nil.

---
 src/gemini/gemini-parser.lisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/gemini/gemini-parser.lisp b/src/gemini/gemini-parser.lisp
index 3976446..949c8f6 100644
--- a/src/gemini/gemini-parser.lisp
+++ b/src/gemini/gemini-parser.lisp
@@ -249,7 +249,9 @@
        (let* ((absolute-path-p (string-starts-with-p "/" link-value))
               (path            (if absolute-path-p
                                    link-value
-                                   (strcat (path-last-dir original-path)
+                                   (strcat (if original-path
+                                               (path-last-dir original-path)
+                                               "/")
                                            link-value))))
          (make-gemini-uri original-host
                           (normalize-path path)