Faré <[email protected]> writes:
> The previous .asd had it right in not using make-pathname in the perform,
> but instead calling (first (output-files op f)). This one should do
> the same, too.
> And if it wants to translation for this file, it should also have
> output-files return
> (values (list ...) t).
...right, that fixed it, thanks! Now it reads like this:
(defmethod perform ((o compile-op) (f f77-file))
(let ((output-name (car (output-files o f))))
(apply #'f2cl:f2cl-compile
(make-pathname :name (component-name f)
:type "f"
:defaults (component-pathname f))
:output-file output-name
(compiler-options f))))
Regards,
Mario
_______________________________________________
asdf-devel mailing list
[email protected]
http://common-lisp.net/cgi-bin/mailman/listinfo/asdf-devel
