Commit d44d649bfcfaa5c24d55c42b660312e8a77f6d91

Thomas de Grivel 2015-04-08T18:17:08

Fix deadlock on missing assets directory.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
diff --git a/find.lisp b/find.lisp
index 03c443e..02b062d 100644
--- a/find.lisp
+++ b/find.lisp
@@ -96,7 +96,9 @@
 	  :initial-value assets))
 
 (defmethod find-assets (type (dir null) name ext assets)
-  (find-assets type (assets-dirs) name ext assets))
+  (let ((dir (assets-dirs)))
+    (when dir
+      (find-assets type dir name ext assets))))
 
 ;;    Resolve class