anchor.diff:          (when (plusp (length string))
             (let ((msg (make-instance 'client-privmsg :target target
                                       :contents string)))
  -            (queue-add (send-queue client) msg)
  -            (send :terminal msg))))
  +            (send :terminal msg)
  +            (queue-add (send-queue client) msg))))
   
         :timeout
         (let ((msg (make-instance 'client-privmsg :target target
                                   :contents (outmsg "EVAL-TIMEOUT"))))
  -        (queue-add (send-queue client) msg)
  -        (send :terminal msg)))))
  +        (send :terminal msg)
  +        (queue-add (send-queue client) msg)))))
   
   (defun nth-word (n string)
     (let ((words (split-sequence:split-sequence
  
positive.code:    (arguments :reader arguments :initarg :arguments)))
  
  (defclass server-privmsg (server-message)
    ((real-msg :reader real-msg :initarg :real-msg :initform t)
     (tell-enabled :reader tell-enabled :initarg :tell-enabled :initform t)))
  (defclass server-privmsg-eval (server-privmsg) nil)
  (defclass server-privmsg-cmd (server-privmsg) nil)
  
  
negative.code:     (bt:with-lock-held ((lock (gethash sandbox-name *sandbox-usage*)))
        (sandbox-impl:reset))))
  
  (defun send-message-or-tell-intro (client message)
    (let ((intro (tell-intro message)))
      (if intro
          (progn (send :terminal intro)
                 (queue-add (send-queue client) intro))
          (send :terminal message))))
  
  (defgeneric handle-input-message (client message))
  
  (defmethod handle-input-message ((client client) (message server-privmsg-eval))
  