anchor.diff:                 (bt:thread-alive-p thread))
         (bt:destroy-thread thread)))
     (setf (server-message-thread client)
  -        (with-thread (*thread-name-server-message*)
  +        (with-thread ("server message handler")
             (block nil
               (handler-bind
   
  
positive.code:       (bt:destroy-thread send-queue-thread))
  
      (setf send-queue-thread
            (with-thread (*thread-name-send-queue*)
              (loop :for msg := (queue-pop (send-queue client))
                    :while (connectedp client)
                    :do (sleep *send-queue-interval*)
  
negative.code: (defclass eval-bot () nil)
  
  ;;; Threads
  
  (defmacro with-thread ((name &key timeout) &body body)
    (let ((main (gensym "MAIN-THREAD"))
  