[slime-devel] SBCL takes 100% of cpu

[Stephen Compall]

Alan Pavicic wrote:
> after I enter 'slime-disconnect' my sbcl goes on 100% of cpu. I am
> running sbcl 0.9.15 and two different versions of slime from gentoo
> tree: slime-2.0.0.20060805 and slime-cvs.
> 
> That's happening on two different machines. I tried to strace what is
> going on but sbcl crashed with 'Argh! corrupted error depth, halting'
> 
> Following lines are from my .sbclrc:
> (setf swank:*use-dedicated-output-stream* nil)
> (setf swank:*communication-style* :fd-handler)
> (swank:create-server :dont-close t)

Replace defun process-available-input in swank.lisp with the following:

(defun process-available-input (stream fn)
  (when (open-stream-p stream)
    (loop do (funcall fn)
          while (and (open-stream-p stream) (listen stream)))))

-- 
Stephen Compall
http://scompall.nocandysw.com/blog