9 Apr
2010
9 Apr
'10
7:33 p.m.
Faré <fahree@gmail.com> 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