>> (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. > Yup, that's better. I'm putting that in my local copy, to be released this week (hopefully after having a chance to look at janderson's pathname test).
> Isn't this a job for > > (defmethod output-files asdf:around ((op operation) (c component) > ...) > > ? > Meh, right at the moment I was considering getting rid of asdf:around... [ François-René ÐVB Rideau | Reflection&Cybernethics | http://fare.tunes.org ] "I think sex is better than logic, but I can't prove it." — Monty Python _______________________________________________ asdf-devel mailing list asdf-devel@common-lisp.net http://common-lisp.net/cgi-bin/mailman/listinfo/asdf-devel
