anchor.diff:    (loop :for line :in *command-help-strings*
           :for msg := (make-instance 'client-privmsg
                                      :target target
  -                                   :contents (irc-fmt line))
  +                                   :contents (bot-message line))
           :do (queue-add (send-queue client) msg)))
   
   (defvar *source-code-url* "https://github.com/tlikonen/cl-eval-bot")
  
positive.code:                :tell-intro (make-instance
                              'client-privmsg
                              :target word1
                              :contents (irc-fmt "User \"~A\" tells: ~A"
                                                 (trivial-irc:prefix-nickname
                                                  (prefix message))
                                                 rest)))))))
  
  (defun cmd-def (client target line)
    (let* ((word (string-downcase (nth-word 1 line)))
  
negative.code: (defmethod send ((target (eql :terminal)) message)
    (send *local-stream* message))
  
  (defun bot-message (format-string &rest args)
    (apply #'format nil format-string args))
  
  (defun bot-comment (format-string &rest args)
    (apply #'format nil (concatenate 'string ";; " format-string)
           args))
  
  ;;; Definitions
  