anchor.diff:         (send-message-or-tell-intro client message)
          (cmd-help client target))
   
  -      ((string-equal "source" (nth-word 0 line))
  -       (send-message-or-tell-intro client message)
  -       (cmd-source client target))
  -
         ((and (string-equal "tell" (nth-word 0 line))
               (not (tell-intro message)))
          (cmd-tell client message line)))))
  
positive.code:   (let ((fmt
           '(";; ~Aexpression ...           Eval expression(s) in your package."
             ";; ~Ahelp                     This help message."
             ";; ~Asource                   Show the URL to bot's source code."
             ";; ~Atell <target> <command>  Send <command>'s output to <target>."))
          strings)
      (push (bot-message (first fmt) *eval-prefix*) strings)
  
negative.code:                                    :target target
                                     :contents (bot-message line))
          :do (queue-add (send-queue client) msg)))
  
  (defun cmd-tell (client message line)
    (let ((word1 (nth-word 1 line))
  