anchor.diff:                     (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*)
  
positive.code:                           :ok)
                      :package)
                :prompt))
    (slime-repl))
  
  (defun log-message (message)
    (let ((buffer (get-buffer-create "*slime-events*")))
  
negative.code: 
  (defvar *slime-prompt-string*) ;(1)
  (defvar *connection* nil)
  (defvar *write-string-function* 'write-string-to-output-buffer)
  (defvar *last-compilation-result* nil)
  (defvar *indent-table* (make-hash-table :test 'equal))
  