anchor.diff:               (client-read-loop () (read-loop client-socket :client-data :client-eof))
                (swank-read-loop () (read-loop swank-socket :swank-data :swank-eof)))
   
  -      (let ((client-read-thread (swank/backend:spawn #'client-read-loop))
  -            (swank-read-thread (swank/backend:spawn #'swank-read-loop))
  +      (let ((client-read-thread (swank/backend:spawn
  +                                  #'client-read-loop
  +                                  :name "Vlime Client Reader"))
  +            (swank-read-thread (swank/backend:spawn
  +                                 #'swank-read-loop
  +                                 :name "Vlime SWANK Reader"))
               (client-read-buffer #())
               (swank-read-buffer #()))
           (loop
  
positive.code:       (swank/backend:spawn
          #'(lambda ()
              (vlime-control-thread
                client-socket swank-host swank-port))))))
  
  
  (defun vlime-control-thread (client-socket swank-host swank-port)
  
negative.code:     (sb-bsd-sockets:socket-listen server-socket 128)
      (swank/backend:spawn
        #'(lambda ()
            (server-listener server-socket swank-host swank-port))
        :name (format nil "Vlime Server Listener ~a ~a" host port))))
  