<HTML><BODY style="word-wrap: break-word; -khtml-nbsp-mode: space; -khtml-line-break: after-white-space; ">I finally managed to figure out the infinite loop problem and believe that it is now fixed (and on the web). The problem was in asdf-system-connections. In case anyone is interested, I had defined system-loaded-p as<DIV><BR class="khtml-block-placeholder"></DIV><DIV>(defun system-loaded-p (system-name)</DIV><DIV> (let ((load-op (make-instance 'load-op))</DIV><DIV> (system (find-system system-name nil)))</DIV><DIV><SPAN class="Apple-tab-span" style="white-space:pre"> </SPAN>(and system </DIV><DIV><SPAN class="Apple-tab-span" style="white-space:pre"> </SPAN> (operation-done-p load-op system)</DIV><DIV><SPAN class="Apple-tab-span" style="white-space:pre"> </SPAN> (null (traverse load-op system)))))</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>because I was under the impression that traverse was side-effect free. That was the wrong impression. A better definition of system-loaded-p is:<BR><DIV> <P style="margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica; min-height: 14.0px"><BR></P><DIV>(defun system-loaded-p (system-name)</DIV><DIV> (let ((load-op (make-instance 'load-op))</DIV><DIV> (system (find-system system-name nil)))</DIV><DIV><SPAN class="Apple-tab-span" style="white-space:pre"> </SPAN>(and system</DIV><DIV><SPAN class="Apple-tab-span" style="white-space:pre"> </SPAN> (operation-done-p load-op system)</DIV><DIV><SPAN class="Apple-tab-span" style="white-space:pre"> </SPAN> (null (traverse load-op system)))</DIV><P style="margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica; min-height: 14.0px"></P><P style="margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica; min-height: 14.0px">One step forward...</P><P style="margin: 0.0px 0.0px 0.0px 0.0px"><FONT face="Helvetica" size="3" style="font: 12.0px Helvetica">--<SPAN class="Apple-converted-space"> </SPAN></FONT></P> <P style="margin: 0.0px 0.0px 0.0px 0.0px"><FONT face="Helvetica" size="3" style="font: 12.0px Helvetica">Gary Warren King</FONT></P> <P style="margin: 0.0px 0.0px 0.0px 0.0px"><FONT face="Helvetica" size="3" style="font: 12.0px Helvetica">metabang.com</FONT></P> <P style="margin: 0.0px 0.0px 0.0px 0.0px"><FONT face="Helvetica" size="3" style="font: 12.0px Helvetica"><A href="http://www.metabang.com">http://www.metabang.com</A>/</FONT></P> <BR class="Apple-interchange-newline"> </DIV><BR></DIV></BODY></HTML>