anchor.diff:  (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)
  
positive.code:                                (string-equal (first form) "DEFSYSTEM")
                                 (string-equal (second form) file-name))
                       return (defsystem-form-info form))
               (sb-int:simple-reader-error () nil))
          (unless cffi-grovel-p
            (delete-package '#:cffi-grovel))))))
  
  (defun test-system-p (pathname)
    (and (not (equal "should-test" (pathname-name pathname)))
         (search "-test" (namestring pathname))))
  
  (defun project-system-files (project)
    (let ((release (find-release project)))
      (unless release (error "Could not find a release for ~A" project))
      (ensure-installed release)
      (loop for file in (system-files release)
            unless (test-system-p file)
            collect (truename (relative-to release file)))))
  
  (defun primary-system-file (project)
  
negative.code:                  :test 'string-equal
                   :key 'pathname-name))
            (t
             (shortest-by-namestring system-files)))))
  
  (defvar *test-new-releases*
    '("chirp" "cl-flowd" "defvariant" "delta-debug" "random"))
  