anchor.diff:    (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))))
  +      (remove-connection *connection*)
  +      t)))
   
   (define-command slime-restart () ()
     (slime-quit)
  
positive.code: 
  (defparameter *default-port* 4005)
  
  (defvar *connection* nil)
  (defvar *write-string-function* 'write-string-to-output-buffer)
  (defvar *last-compilation-result* nil)
  
negative.code:              (not (null *connection*)))
      (handler-bind ((disconnected (lambda (c)
                                     (declare (ignore c))
                                     (remove-connection *connection*))))
        (loop :while (swank-protocol:message-waiting-p *connection*)
              :do (dispatch-message (swank-protocol:read-message *connection*))))))
  
  