Commit 1237f84ef5b85399b196f21c3dead1a89aec5e69

Thomas de Grivel 2014-05-27T18:57:30

Fix ordering of assets returned by find-assets.

1
2
3
4
5
6
7
8
9
10
11
12
13
diff --git a/find.lisp b/find.lisp
index 9905f2b..fc790e6 100644
--- a/find.lisp
+++ b/find.lisp
@@ -46,7 +46,7 @@
 			assets)
   (let ((absolute-dir (truename dir))
 	(assets assets))
-    (dolist (path (directory (str dir name ext)))
+    (dolist (path (reverse (directory (str dir name ext))))
       (unless (char= #\. (char (pathname-name path) 0))
 	(let* ((name.ext (enough-namestring (truename path) absolute-dir))
 	       (name (if ext