anchor.diff:                                  string)))
   
   (defun sandbox-repl (sandbox-name string &optional (stream *standard-output*))
  -  (update-sandbox-usage sandbox-name)
  +  (common:update-sandbox-usage sandbox-name)
     (let ((sandbox-impl:*sandbox* sandbox-name))
       (sandbox-impl:repl string stream)))
   
   (defun sandbox-init (sandbox-name)
  -  (update-sandbox-usage sandbox-name)
  +  (common:update-sandbox-usage sandbox-name)
     (unless (find-package sandbox-name)
       (let ((sandbox-impl:*sandbox* sandbox-name))
         (sandbox-impl:reset))))
  
positive.code:   (let ((target (first (arguments message)))
          (contents (subseq (second (arguments message))
                            (length *eval-prefix*)))
          (sandbox-name (user-to-sandbox-name (prefix message))))
  
      (send-message-or-tell-intro client message)
      (sandbox-init sandbox-name)
  
negative.code: ;; <http://www.gnu.org/licenses/>.
  
  (defpackage #:eval-bot
    (:use #:cl)
    (:import-from #:common
                  #:queue #:queue-add #:queue-pop #:queue-clear #:queue-length
                  #:with-thread))
  
  (in-package #:eval-bot)
  
  