On Mon, Mar 15, 2010 at 4:47 PM, Faré <span dir="ltr"><<a href="mailto:fahree@gmail.com">fahree@gmail.com</a>></span> wrote:<br><div class="gmail_quote"><blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">
(defmethod output-files :around ((op operation) (c component))<br>
  "Translate output files, unless asked not to"<br>
  (multiple-value-bind (files fixedp) (call-next-method)<br>
    (if fixedp<br>
        files<br>
        (mapcar #'apply-output-translations files))))<br clear="all"></blockquote></div><br>What about this:<br><br>(defmethod output-files :around ((op operation) (c component))<br>
  "Translate output files, unless asked not to"<br> 
 (values<br>   (multiple-value-bind (files fixedp) (call-next-method)<br>
      (if fixedp<br>
          files<br>
          (mapcar #'apply-output-translations files)))<br>   t))<br><br>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.<br>
<br>-- <br>Instituto de Física Fundamental, CSIC<br>c/ Serrano, 113b, Madrid 28006 (Spain) <br><a href="http://juanjose.garciaripoll.googlepages.com">http://juanjose.garciaripoll.googlepages.com</a><br>