anchor.diff:      (asdf:missing-dependency ()
         (install-with-quicklisp package))))
   
  -(defun main (&key backend (port 0) port-file)
  +(defun main (&key backend (port 0) port-file (start-swank t) (swank-port 0))
     (when (not backend)
       (let ((preferred-style (dyn-call "SWANK/BACKEND" "PREFERRED-COMMUNICATION-STYLE")))
         (case preferred-style
  
positive.code:                   "Vlime: Communication style ~s not supported.~%" preferred-style)
            (return-from main)))))
  
    (let ((swank-port nil)
          (swank-comm-style
            (dyn-call "SWANK/BACKEND" "PREFERRED-COMMUNICATION-STYLE")))
      (labels ((announce-swank-port (port)
                 (setf swank-port port))
  
negative.code:       (ecase backend
          (:vlime-usocket
            (try-to-load :vlime-usocket)
            (when start-swank
              (dyn-call "SWANK" "SETUP-SERVER"
                        swank-port #'announce-swank-port swank-comm-style t nil))
            (start-vlime-server :usocket))
          (:vlime-sbcl
            (try-to-load :vlime-sbcl)
            (when start-swank
              (dyn-call "SWANK" "SETUP-SERVER"
                        0 #'announce-swank-port swank-comm-style t nil))
            (start-vlime-server :sbcl))
          (:vlime-patched
            (try-to-load :vlime-patched)
  