On Mon, Mar 15, 2010 at 4:47 PM, Faré <fah...@gmail.com> wrote:
> (defmethod output-files :around ((op operation) (c component))
> "Translate output files, unless asked not to"
> (multiple-value-bind (files fixedp) (call-next-method)
> (if fixedp
> files
> (mapcar #'apply-output-translations files))))
>
What about this:
(defmethod output-files :around ((op operation) (c component))
"Translate output files, unless asked not to"
(values
(multiple-value-bind (files fixedp) (call-next-method)
(if fixedp
files
(mapcar #'apply-output-translations files)))
t))
It has the advantage that the :AROUND method also follows the API and other
functions calling OUTPUT-FILES get to know that the paths are now fixed.
--
Instituto de Física Fundamental, CSIC
c/ Serrano, 113b, Madrid 28006 (Spain)
http://juanjose.garciaripoll.googlepages.com
_______________________________________________
asdf-devel mailing list
asdf-devel@common-lisp.net
http://common-lisp.net/cgi-bin/mailman/listinfo/asdf-devel
