Commit 8920332782b61fd65c22172287d9b1b235405567

Thomas de Grivel 2019-10-06T16:03:39

style

1
2
3
4
5
6
7
8
9
10
11
12
13
diff --git a/find.lisp b/find.lisp
index 68873dd..cab1b59 100644
--- a/find.lisp
+++ b/find.lisp
@@ -52,7 +52,7 @@
         (let* ((name.ext (enough-namestring (truename path) absolute-dir))
                (name (if ext
                          (subseq name.ext 0 (- (length name.ext)
-                                               (length (string ext))))
+                                               (length (symbol-name ext))))
                          name.ext)))
           (when name
             (unless (find-in-assets type dir name ext assets)