anchor.diff:                                           :case-insensitive-mode t)
                      (second (arguments message)) 0
                      :sharedp t))
  -    (let ((subject (retrieve-svn-log revnum)))
  +    (let ((subject (retrieve-svn-log module revnum)))
         (when subject
             (reply-to message
                       "svn r~a is ~a [https:///trac/changeset/~a]"
  
positive.code:       ((null revnums)
         (reply-to message "I'd rather have a revision number or path"))
        (t
         (lookup-all-svn message revnums)))))
  
negative.code:               (string-limit (substitute #\space #\newline message) 160)
                rev))))
  
  (defun lookup-all-svn (module message rev-numbers)
    (let ((match-found nil))
      (dolist (rev (remove-duplicates rev-numbers :test #'string=))
        (multiple-value-bind (match regs)
            (ppcre:scan-to-strings "[#r]?(\\d+)" rev)
          (cond
            (match
                (let ((subject (retrieve-svn-log module (aref regs 0))))
                  (if subject
                      (reply-to message
                                "svn r~a is ~a https:///trac/changeset/~a"
                                (aref regs 0) subject (aref regs 0))
                      (reply-to message "SVN r~a doesn't seem to exist" (aref regs 0)))))
            (t
             (let ((info (retrieve-svn-last-commit-log module rev)))
               (if info
                  (reply-to message
                            "~a last modified ~a"
  