Slime gets my computer at 100% activity because it has some strange way of waiting for input: this is a loop over streams, inifite, using read-char-no-hang without ever waiting. I am sure there are better ways of doing this. This is in swank-backend.lisp -- do all implementations have this problem?<div>
<br></div><div><div>(defun wait-for-streams (streams timeout)</div><div>  (loop</div><div>   (when (check-slime-interrupts) (return :interrupt))</div><div>   (let ((ready (remove-if-not #'stream-readable-p streams)))</div>
<div>     (when ready (return ready)))</div><div>   (when timeout (return nil))</div><div>   (sleep 0.1)))</div><div><br></div><div><br></div>-- <br>Instituto de Física Fundamental, CSIC<br>c/ Serrano, 113b, Madrid 28006 (Spain) <br>
<a href="http://juanjose.garciaripoll.googlepages.com">http://juanjose.garciaripoll.googlepages.com</a><br>
</div>