anchor.diff:             ";; ~Adef-[n] <word>           Delete definition [n] from <word>."
              ";; ~Atell <target> <command>  Send <command>'s output to <target>."))
           strings)
  -    (push (irc-fmt (first fmt) *eval-prefix*) strings)
  +    (push (bot-message (first fmt) *eval-prefix*) strings)
       (loop :for line :in (rest fmt)
  -          :do (push (irc-fmt line *command-prefix*) strings))
  +          :do (push (bot-message line *command-prefix*) strings))
       (nreverse strings)))
   
   (defun cmd-help (client target)
  
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
  