Commit 45ee18a482943257693479bf96233814a7e0d2b0

Thomas de Grivel 2014-10-16T15:41:03

Find assets using spec extension only if the extension is found in class extensions when class is given.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
diff --git a/find.lisp b/find.lisp
index fc790e6..115b932 100644
--- a/find.lisp
+++ b/find.lisp
@@ -131,7 +131,9 @@
 			 (extension-asset-classes ext))))))
     (or (assets-matching class spec nil)
 	(with-asset-spec spec (name ext)
-	  (when ext
+	  (when (if class
+		    (find ext (asset-class-extensions class))
+		    ext)
 	    (assets-matching class name ext)))
 	assets)))