(use-modules (gnu packages)
             (guix build utils)
             (guix import github)
             (guix packages)
             (guix upstream)
             (guix utils)
             (ice-9 format)
             (srfi srfi-1)
             (srfi srfi-9)
             (srfi srfi-26)
             (srfi srfi-37)
             (srfi srfi-71))

(define packages (filter (lambda (p)
                           (origin? (package-source p)))
                         (fold-packages cons '())))
(define uncovered
  (fold (lambda (updater uncovered)
          (let ((matches (filter (upstream-updater-predicate updater)
                                 packages)))
            (lset-difference eq? uncovered matches)))
        packages
        (force %updaters)))

(for-each (lambda (u)
            (format #t "~a\t~a~%" (package-name u) (origin-uri (package-source u))))
          uncovered)