Commit 04e47c4f619831415c86fb414453e6afd3bfbe9e

Thomas de Grivel 2013-11-27T13:26:16

Allow compiling asset to stream.

diff --git a/precompile/precompile.lisp b/precompile/precompile.lisp
index 6e81251..9bc6441 100644
--- a/precompile/precompile.lisp
+++ b/precompile/precompile.lisp
@@ -22,12 +22,19 @@
 
 (defgeneric compile-asset (asset output))
 
+(defmethod compile-asset ((asset asset) (output stream))
+  (let ((path (asset-source-path asset)))
+    (msg "CP ~A" path)
+    (with-open-file (in path :element-type '(unsigned-byte 8))
+      (copy-stream in output)))
+  nil)
+
 (defmethod compile-asset ((asset asset) (output pathname))
   (ensure-directories-exist output)
   (let ((path (asset-source-path asset)))
     (msg "CP ~A" path)
-    (copy-files path output :replace t :update t)
-    nil))
+    (copy-files path output :replace t :update t))
+  nil)
 
 (defmethod compile-asset ((asset preprocessed-asset) (output stream))
   (let ((assets (preprocess-asset asset)))