anchor.diff:  (defclass eval-bot () nil)
   
   ;;; Threads
  -
  -(defparameter *thread-name-eval*
  -  "eval-bot eval handler")
  -(defparameter *thread-name-server-message*
  -  "eval-bot server message handler")
  -(defparameter *thread-name-send-queue*
  -  "eval-bot send queue handler")
  -(defparameter *thread-name-input-queue*
  -  "eval-bot input queue handler")
   
   (defmacro with-thread ((name &key timeout) &body body)
     (let ((main (gensym "MAIN-THREAD"))
  
positive.code:     (send-message-or-tell-intro client message)
      (sandbox-init sandbox-name)
  
      (with-thread (*thread-name-eval* :timeout *eval-timeout*)
        (let ((string (clean-string (with-output-to-string (stream)
                                      (sandbox-repl sandbox-name
                                                    contents stream)))))
  
negative.code:                (bt:thread-alive-p thread))
        (bt:destroy-thread thread)))
    (setf (server-message-thread client)
          (with-thread ("server message handler")
            (block nil
              (handler-bind
  
  