anchor.diff:    "Given the CHANNEL on which the message is sent, and the BODY of the message, return DIRECTP, QUESTIONP, and the preprocessed text.  DIRECTP refers to whether the bot is being directly referred to.  QUESTIONP is T when the body of the text is a ?."
     (multiple-value-bind (match regs)
         (ppcre:scan-to-strings
  -       (ppcre:create-scanner "^(?:~(.*)|orca[:, ]+(.*)|(.+),\\s*orca)$" :case-insensitive-mode t)
  +       (ppcre:create-scanner "^(?:~(.*)|orca[:,]+\\s*(.*)|(.+),\\s*orca)$" :case-insensitive-mode t)
          (string-trim " .?!" body)
          :sharedp t)
       (let ((text (if match
  
positive.code:             ("forget" "<term> - remove a term")
              ("no" "<term> is <definition> - change a term")
              ("bug" "<bug number> - show a link to the ITA bug")
              ("tix" "<tix number> - show a link to an ITA tix ticket")))
           (help (assoc command cmd-help :test #'string-equal)))
      (if help
          (irc:notice *connection* (source message)
  
negative.code:            (values directp (list "svn" rev))))))))
  
  (defun respond-randomly (message)
    (let ((msg (substitute #\space #\newline
                           (with-output-to-string (str)
                             (sb-ext:run-program "/usr/games/fortune"
                                                 '("zippy")
                                                 :input nil :output str)))))
      (if (char= #\# (char (first (arguments message)) 0))
          (irc:privmsg *connection* (first (arguments message))
                       (format nil "~a: ~a" (source message) msg))
  