From d6f0f26ebdf506f2dc1da0123ba3163b5c60b103 Mon Sep 17 00:00:00 2001 From: Shinmera Date: Sun, 8 Mar 2015 17:39:51 +0100 Subject: [PATCH] Added ability to specify output file. --- asdf.lisp | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/asdf.lisp b/asdf.lisp index 166f355..d6b5e2f 100644 --- a/asdf.lisp +++ b/asdf.lisp @@ -7,7 +7,7 @@ (in-package #:org.tymoonnext.lass) (defclass lass-file (asdf:source-file) - () + ((output :initarg :output :initform NIL :accessor output)) (:default-initargs :type "lass")) ;; Hack to ensure that ASDF recognises the class @@ -29,7 +29,10 @@ (defmethod asdf:output-files ((op asdf:compile-op) (c lass-file)) (values - (list (make-pathname :type "css" :defaults (asdf:component-pathname c))) + (list (merge-pathnames + (or (output c) + (pathname-name (asdf:component-pathname c))) + (make-pathname :type "css" :defaults (asdf:component-pathname c)))) T)) (defmethod asdf:perform ((op asdf:load-op) (c lass-file))