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