 (defun straight-use-package (melpa-style-recipe
                              &optional
                              interactive straight-style
-                             parent-recipe)
+                             parent-recipe reload)
   (interactive (list (straight-get-elpa-recipe) t))
   (let ((recipe (if straight-style melpa-style-recipe
                   (straight--convert-recipe melpa-style-recipe))))

      (package)
    (load (straight--file "build" package (straight--autoload-file-name package))
          nil 'nomessage)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; API

(defun straight--package-might-be-modified-p (recipe)
  (straight--with-plist recipe
      (package local-repo)
    (when (and (not after-init-time)
               (equal straight--cached-packages-might-be-modified-p
                      :unknown))
      (setq straight--cached-packages-might-be-modified-p
            (straight--cached-packages-might-be-modified-p)))
    (when (or after-init-time
              straight--cached-packages-might-be-modified-p
              (not (gethash package straight--build-cache)))
      (or (not (file-exists-p (straight--file "build" package)))
          (let ((mtime (nth 0 (gethash package straight--build-cache))))
