From d00e8f9e13a0e84ebfc877f483101cea595976ad Mon Sep 17 00:00:00 2001 From: goffioul Date: Mon, 24 Oct 2005 09:08:02 +0000 Subject: [PATCH] Use correct location to put final FAS file. --- contrib/asdf/asdf-ecl.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/contrib/asdf/asdf-ecl.lisp b/contrib/asdf/asdf-ecl.lisp index 87e9352d3..985869d50 100644 --- a/contrib/asdf/asdf-ecl.lisp +++ b/contrib/asdf/asdf-ecl.lisp @@ -62,7 +62,8 @@ collect (car (output-files (make-instance 'build-op) c)))) (defmethod output-files ((o build-op) (c system)) - (list (compile-file-pathname (component-name c) :type (build-op-type o)))) + (list (merge-pathnames (component-pathname c) + (compile-file-pathname (component-name c) :type (build-op-type o))))) (defmethod input-files ((o build-op) (c system)) (append (get-object-files c)