<br><br><div class="gmail_quote">On Wed, Mar 17, 2010 at 9:58 AM, Juan Jose Garcia-Ripoll <span dir="ltr"><<a href="mailto:juanjose.garciaripoll@googlemail.com">juanjose.garciaripoll@googlemail.com</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">Before, if an operation defined by me, such as LIB-OP, did not traverse a system, then the only operation we got was that operation applied on the system, as a generic object.<br>
<br>Now TRAVERSE not only imposes the LIB-OP operation on the system, but it also scans the components and imposes the operation on the components. <br></blockquote></div><br>Instead of having TRAVERSE use  some kind of hard-coded logic as it does now<br>
<br>            (let ((module-ops<br>                   (when (typep c 'module)<br>[...]<br>                       (dolist (kid (module-components c))<br>                           (handler-case<br><br>why not go back to something more reasonable which is based on COMPONENT-DEPENDS-ON<br>
<br>(defmethod component-depends-on ((o operation) (c system))<br>  ...)<br><br>Juanjo<br clear="all"><br>-- <br>Instituto de Física Fundamental, CSIC<br>c/ Serrano, 113b, Madrid 28006 (Spain) <br><a href="http://tream.dreamhosters.com">http://tream.dreamhosters.com</a><br>