anchor.diff:  
   (defparameter *default-port* 4005)
   
  +(defvar *connection-list* '())
   (defvar *connection* nil)
   (defvar *write-string-function* 'write-string-to-output-buffer)
   (defvar *last-compilation-result* nil)
  
positive.code:   (let ((process (swank-protocol:connection-process *connection*)))
      (when (and process (sb-ext:process-alive-p process))
        (sb-ext:process-kill process 9)
        (setf *connection* nil))))
  
  (define-command slime-restart () ()
    (slime-quit)
  
negative.code:            (parse-integer (prompt-for-string "Port: " (princ-to-string *default-port*)))
             t))
    (message "Connecting...")
    (let (connection)
      (handler-case (setf connection
                          (swank-protocol:new-connection hostname port))
        (usocket:connection-refused-error (c)
          (editor-error "~A" c)))
      (message "Swank server running on ~A ~A"
               (swank-protocol:connection-implementation-name connection)
               (swank-protocol:connection-implementation-version connection))
      (setf lem-lisp-syntax:*get-features-function* 'features)
      (add-connection connection)
      (when start-repl (start-lisp-repl))
      (start-thread)
      connection))
  
  (defun log-message (message)
    (let ((buffer (get-buffer-create "*lisp-events*")))
  