<HTML><BODY style="word-wrap: break-word; -khtml-nbsp-mode: space; -khtml-line-break: after-white-space; ">That corrected code was supposed to be <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> (handler-case </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> (error () </DIV><DIV><SPAN class="Apple-tab-span" style="white-space:pre"> </SPAN>;; just treat any error as 'not loaded' for now...</DIV><DIV><SPAN class="Apple-tab-span" style="white-space:pre"> </SPAN>nil))))</DIV><DIV><BR><DIV> <P style="margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px Helvetica; min-height: 14.0px"><BR></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>