![](https://secure.gravatar.com/avatar/4ad57009bcdf1ac3818ce190dacffc6b.jpg?s=120&d=mm&r=g)
On Mon, Mar 15, 2010 at 4:47 PM, Faré <fahree@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