                         ;; 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")
+                         (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

                           local-repo)
                        (unless nomsg
                          (message "Package %S is all good" package))
                        ;; 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
