anchor.diff:      (sb-bsd-sockets:socket-listen server-socket 128)
       (swank/backend:spawn
         #'(lambda ()
  -          (server-listener server-socket swank-host swank-port)))))
  +          (server-listener server-socket swank-host swank-port))
  +      :name (format nil "Vlime Server Listener ~a ~a" host port))))
  
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:              (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
                                    :name "Vlime Client Reader"))
              (swank-read-thread (swank/backend:spawn
                                   #'swank-read-loop
                                   :name "Vlime SWANK Reader"))
              (client-read-buffer #())
              (swank-read-buffer #()))
          (loop
  