anchor.diff:     (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)))
  +  ((tell-intro :reader tell-intro :initarg :tell-intro :initform nil)))
   (defclass server-privmsg-eval (server-privmsg) nil)
   (defclass server-privmsg-cmd (server-privmsg) nil)
   
  
positive.code:                           (length *eval-prefix*)))
          (sandbox-name (user-to-sandbox-name (prefix message))))
  
      (when (real-msg message)
        (send :terminal message))
  
      (with-thread (*thread-name-eval* :timeout *eval-timeout*)
        (let ((string (clean-string (with-output-to-string (stream)
  
negative.code:         (when (plusp (length string))
            (let ((msg (make-instance 'client-privmsg :target target
                                      :contents string)))
              (send :terminal msg)
              (queue-add (send-queue client) msg))))
  
        :timeout
        (let ((msg (make-instance 'client-privmsg :target target
                                  :contents (outmsg "EVAL-TIMEOUT"))))
          (send :terminal msg)
          (queue-add (send-queue client) msg)))))
  
  (defun nth-word (n string)
    (let ((words (split-sequence:split-sequence
  