[asdf-devel] Cache? Translations? How to get rid of them?

[Juan Jose Garcia-Ripoll]

On Mon, Mar 15, 2010 at 4:47 PM, Faré <fahree at 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
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/asdf-devel/attachments/20100315/49eb8fed/attachment.html>