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: 
  (defun connected-p ()
    (not (null *connection*)))
  
  (defun add-connection (conn)
    (push conn *connection-list*)
    (setf *connection* conn))
  
  (defun remove-connection (conn)
    (setf *connection-list* (delete conn *connection-list*))
    (setf *connection* (car *connection-list*))
    *connection*)
  
  (defun self-connect ()
    (prog (port)
  