Commit bacd45f93f1668086dd73eaec79566d1ed2c5ff8
2014-09-09T01:00:41
Raise an error when required asset is not found during preprocessing.
diff --git a/preprocess.lisp b/preprocess.lisp
index a0ba2f7..677aeab 100644
--- a/preprocess.lisp
+++ b/preprocess.lisp
@@ -25,10 +25,13 @@
;; Preprocessing an asset gives a list of assets to compile.
(defun preprocess/require (asset specs assets)
- (reduce (lambda (assets asset)
- (preprocess/asset asset assets))
- (find-assets-from-specs specs (class-of asset))
- :initial-value assets))
+ (let ((found (find-assets-from-specs specs (class-of asset))))
+ (unless found
+ (error "Asset not found : ~S~&Required by ~S" specs asset))
+ (reduce (lambda (assets asset)
+ (preprocess/asset asset assets))
+ found
+ :initial-value assets)))
(defun preprocess/comment (asset comment assets)
#+nil(debug-msg "Comment ~S" comment)