anchor.diff:           (cond
              (subject
               (reply-to message
  -                      "svn r~a is ~a (http://svn/trac/changeset/~a)"
  +                      "svn r~a is ~a (https:///trac/changeset/~a)"
                         (aref regs 0) subject (aref regs 0)))
              (directp
               (reply-to message "SVN r~a doesn't seem to exist" (aref regs 0)))))))))
positive.code:   (let ((log (with-output-to-string (str)
                  (sb-ext:run-program "/usr/bin/svn"
                                      `("log" "--limit" "1"
                                              ,(format nil "svn+ssh://svn/svn/ita/~a" path))
                                      :input nil :output str))))
      (ppcre:register-groups-bind (rev user message)
          ((ppcre:create-scanner "-+\\nr(\\d+) \\| (.*) \\| [^(]+\\([^)]+\\) \\| \\d+ lines?\\n\\n(.*?)^-{70,}" :single-line-mode t :multi-line-mode t)
           log)
        (format nil "r~a - ~a - ~a (https://svn/trac/changeset/~a)" rev user
                (string-limit (substitute #\space #\newline message) 160)
                rev))))
  
  
negative.code: (defun retrieve-svn-log (rev)
    (let ((log (with-output-to-string (str)
                  (sb-ext:run-program "/usr/bin/svn"
                                      `("log" "-r" ,rev "https:///svn/ita/")
                                      :input nil :output str))))
      (ppcre:register-groups-bind (user message)
          ((ppcre:create-scanner "-+\\nr\\d+ \\| (.*) \\| [^(]+\\([^)]+\\) \\| \\d+ lines?\\n\\n(.*?)^-{70,}" :single-line-mode t :multi-line-mode t)
  