Commit 0d5737b149a4a8cc22115afd1be4e334b9d21f83

Thomas de Grivel 2018-06-26T13:47:53

fix directory index files

1
2
3
4
5
6
7
8
9
10
11
12
13
diff --git a/thot.lisp b/thot.lisp
index 5cfd9d6..a43c48e 100644
--- a/thot.lisp
+++ b/thot.lisp
@@ -494,7 +494,7 @@ The requested url "
           (let ((mode (the fixnum (stat-mode stat))))
             (cond ((s-isdir mode)
                    (dolist (index *index-files*)
-                     (let ((index-path (str local-path index)))
+                     (let ((index-path (str local-path "/" index)))
                        (when (probe-file index-path)
                          (return `(file ,index-path))))))
                   ((s-isreg mode)