                            local-repo)
                         (unless nomsg
                           (message "Package %S is all good" package))
-                        t) ; the only path where the package is valid
+                        ;; This is the only path where the package is
+                        ;; valid.
+                        t)
                     (straight--warn
                      "HEAD of repository %S%s is not reachable from remote"
                      local-repo

                        ;; Local branch has diverged from upstream,
                        ;; but is not purely ahead. Warn.
                        (straight--warn
                         (concat "In repository %S, cannot merge branch %S with "
                                 "upstream %S without merge or rebase")
                         local-repo branch upstream)))
                  (straight--warn
                   (concat "In repository %S, current branch %S has "

      (user-error "No packages loaded"))
     ((zerop valid-repos)
      (unless nomsg
        (message
         "All %d packages have irreproducible configurations"
         total-repos)))
     ((= valid-repos total-repos)
      (unless nomsg
        (message
         "All %d packages have reproducible configurations"
         total-repos)))
     (t
      (unless nomsg
        (message
         "%d packages have reproducible configurations, %d packages do not"
         valid-repos (- total-repos valid-repos)))))
    (= valid-repos total-repos)))

;;;###autoload
