anchor.diff:  
         :timeout
         (let ((msg (make-instance 'client-privmsg :target target
  -                                :contents (irc-fmt ";; EVAL-TIMEOUT"))))
  +                                :contents (bot-comment "EVAL-TIMEOUT"))))
           (send :terminal msg)
           (queue-add (send-queue client) msg)))))
   
  
positive.code:          msg)
  
      (cond ((null def)
             (setf msg (irc-fmt "No definitions for \"~A\"." word1)))
            ((or (and (not nth) (= (length def) 1))
                 (and nth (<= 0 nth (1- (length def)))))
             (definitions-delete word1 (or nth 0))
             (setf msg (if (definitions-read word1)
                           (irc-fmt
                            "Deleted definition ~D from \"~A\" (~D left)."
                            (1+ nth) word1 (length (definitions-read word1)))
                           (irc-fmt "Deleted the last definition from \"~A\"."
                                    word1))))
            ((and (not nth)
                  (>= (length def) 2))
             (setf msg (irc-fmt "There are ~D definitions for \"~A\". ~
                  Please specify a number." (length def) word1)))
            (nth
             (setf msg (irc-fmt "There's no definition ~D for \"~A\"."
                                (1+ nth) word1))))
  
      (let ((new (make-instance 'client-privmsg
                                :target target
  
negative.code:            ";; ~Adef-[n] <word>           Delete definition [n] from <word>."
             ";; ~Atell <target> <command>  Send <command>'s output to <target>."))
          strings)
      (push (bot-message (first fmt) *eval-prefix*) strings)
      (loop :for line :in (rest fmt)
            :do (push (bot-message line *command-prefix*) strings))
      (nreverse strings)))
  
  (defun cmd-help (client target)
  