Commit 76b97e7554e213122fdcd147131c94a3a13f3731

Thomas de Grivel 2018-06-09T18:52:37

fix file handler

1
2
3
4
5
6
7
8
9
10
11
12
13
diff --git a/thot.lisp b/thot.lisp
index 3e17671..933d4b2 100644
--- a/thot.lisp
+++ b/thot.lisp
@@ -489,7 +489,7 @@ The requested url "
           (format t "local-path ~S~%" local-path)
           (force-output))
         (with-stat (stat nil) local-path
-          (when (s-isreg (stat-mode stat))
+          (unless (s-isreg (stat-mode stat))
             `(file ,local-path)))))))
 
 (defparameter *url-handlers*