kmx.io/cl-thot

Browse

Commit 7459758b05219139281d5a59c8835f955fce7cc6

2018-06-09T18:52:17

ws

diff --git a/thot.lisp b/thot.lisp
index 452ef5f..3e17671 100644
--- a/thot.lisp
+++ b/thot.lisp
@@ -463,7 +463,7 @@ The requested url "
   (let* ((name (the simple-string (path-name path)))
          (start (position #\. name :from-end t)))
     (when start
-      (ext (subseq  path start)))))
+      (ext (subseq path start)))))
 
 (defun file (path)
   (let* ((ext (path-extension path))