anchor.diff:          (disconnected
            (c)
            (declare (ignore c))
  -         (stop-eval-timer)
            (setq *connection* nil)))
         (loop :for message :in messages
               :do (log-message message)
  
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: (define-key *slime-repl-mode-keymap* "C-c C-c" 'slime-repl-interrupt)
  
  (define-command slime-repl-interrupt () ()
    (swank-protocol:send-message-string *connection*
                                        (format nil "(:emacs-interrupt ~(~S~))"
                                                (or (car *read-string-thread-stack*)
                                                    :repl-thread))))
  
  (defun repl-buffer (&optional force)
    (if force
  