anchor.diff:      ("(http://wcp.sdf-eu.org/software/)" 0)
       ("(http://people.csail.mit.edu/devon/lisp/)" 0)
       ("^(http://dwim.hu/live/.*)$" 0)
  +    ("^http://git.axity.net/axion/AGM.git$" "agm")
  +    ("^http://nst.maraist.org/download/(.*?)-latest.tar.gz$" 0)
       ("^.*(repo.or.cz)/(.*?\\.git)$" "http://" 0 "/w/" 1)))
   
   (defun substitute-if-matches (regex target substitution)
  
positive.code:                  :test 'string-equal
                   :key 'pathname-name))
            (t
             nil))))
  
  (defvar *test-new-releases*
    '("chirp" "cl-flowd" "defvariant" "delta-debug" "random"))
  
negative.code: (defparameter *guess-website-patterns*
    '(("//github.com/(.*)\\.git" "https://github.com/" 0 "/")
      ("(https://gitlab.common-lisp.net/.*)\.git$")
      ("(https://gitlab.com/.*)\.git$")
      ("//mr.gy/(.*?)/(.*?)/" "http://mr.gy/" 0 "/" 1 "/")
      ("(http://(.*?).googlecode.com/)" 0)
      ("//common-lisp.net/projects/(.*?)/" "http://common-lisp.net/projects/" 0)
  