anchor.diff:  
   (defun refresh-output-buffer ()
     (setq *fresh-output-buffer-p* t))
  +
  +(defun start-thread ()
  +  (bt:make-thread (lambda ()
  +                    (loop
  +                      (when (swank-protocol:message-waiting-p *connection* :timeout 1)
  +                        (send-event (lambda ()
  +                                      (pull-events)))
  +                        (sleep 0.1))))
  +                  :name "slime-wait-message"))
   
   (define-command slime-connect (hostname port)
       ((list (prompt-for-string "Hostname: " "localhost")
  
positive.code:                    (swank-protocol:debugger-in *connection*)
                     (active-debugger thread level select))
                    ((:debug thread level condition restarts frames conts)
                     (stop-eval-timer)
                     (start-debugger thread level condition restarts frames conts))
                    ((:debug-return thread level stepping)
                     (swank-protocol:debugger-out *connection*)
  
negative.code:                           :ok)
                      :package)
                :prompt))
    (slime-repl)
    (start-thread))
  
  (defun log-message (message)
    (let ((buffer (get-buffer-create "*slime-events*")))
  