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