                       (hash-table-keys straight--recipe-cache)
                       (lambda (elt) t)
                       'require-match)))
-  (straight--update-package (gethash package straight--recipe-cache)))
+  (straight--with-progress (format "Updating package %S" package)
+    (straight--update-package (gethash package straight--recipe-cache))))
 
 ;;;###autoload
 (defun straight-update-all ()

(autoload 'pbl-checkout "pbl")
(autoload 'pbl-expand-file-specs "pbl")
(autoload 'pbl--config-file-list "pbl")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; Utility functions

    (maphash (lambda (package recipe)
               (straight--with-plist recipe
                   (local-repo)
                 (unless (member local-repo repos)
                   (funcall func recipe)
                   (push local-repo repos))))
             straight--recipe-cache)))
