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:   (loop :for line :in *command-help-strings*
          :for msg := (make-instance 'client-privmsg
                                     :target target
                                     :contents (irc-fmt line))
          :do (queue-add (send-queue client) msg)))
  
  (defvar *source-code-url* "https://github.com/tlikonen/cl-eval-bot")
  
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
  