Fix css asset urls.
diff --git a/css.lisp b/css.lisp
index e12e626..503ace5 100644
--- a/css.lisp
+++ b/css.lisp
@@ -44,15 +44,17 @@
(output stream))
(format output "@import url('~A');~%" (asset-url asset)))
-(defmethod compile-asset :around ((asset css-asset) (output pathname))
+(defmethod process-asset :around ((asset css-asset) (output stream))
(with-temporary-file (tmp)
- (compile-asset asset tmp)
+ (call-next-method asset tmp)
(force-output tmp)
(file-position tmp 0)
- (regex-lines "\\burl\\s*\\([\"']?asset:([^\"'?#)]*)([^\"')]*)[\"']?\\)" tmp
+ (regex-lines "\\burl\\s*\\([\"']?asset:([^\"'?#)]*)([^\"')]*)[\"']?\\)"
+ tmp
:replace (lambda (match spec rest)
(declare (ignore match))
(let ((asset (find-asset spec)))
+ #+FIXME
(unless (asset-digest asset)
(compile-asset asset (pathname (asset-path asset))))
(str "url('" (asset-url asset) rest "')")))