Use correct location to put final FAS file.

This commit is contained in:
goffioul 2005-10-24 09:08:02 +00:00
parent bffae25f2f
commit d00e8f9e13

View file

@ -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)