   (string-trim (apply #'straight--get-call-raw command args)))
 
 (defun straight--make-mtime (mtime)
-  "Ensure that the `straight--mtime-file' for MTIME (a string) exists.
+  "Ensure that the `straight--mtimes-file' for MTIME (a string) exists.
 This creates a file in the appropriate directory that has the
 corresponding mtime. Return the name of the file.
 
 This function may not work on all operating systems."
-  (make-directory (straight--mtime-dir) 'parents)
-  (let ((file (straight--mtime-file mtime)))
+  (make-directory (straight--mtimes-dir) 'parents)
+  (let ((file (straight--mtimes-file mtime)))
     (unless (file-exists-p file)
       (straight--check-call "touch" "-d" mtime file))
     file))

`:type' specified in RECIPE."
  (straight--with-plist recipe
      (local-repo type)
    (let ((straight--default-directory (straight--dir "repos" local-repo)))
      (straight-vc 'pull-from-upstream type recipe))))

(defun straight-vc-push-to-remote (recipe)

  (straight--with-plist recipe
      (package local-repo files)
    ;; Remove the existing built package, if necessary.
    (let ((dir (straight--build-dir package)))
      (when (file-exists-p dir)
        (delete-directory dir 'recursive)))
    ;; Make a new directory for the built package.
    (make-directory (straight--build-dir package) 'parents)
    ;; Do the linking.
    (dolist (spec (straight-expand-files-directive
                   files
                   (straight--repos-dir local-repo)
                   (straight--build-dir package)))
      (cl-destructuring-bind (repo-file . build-file) spec
        (make-directory (file-name-directory build-file) 'parents)
        (straight--symlink-recursively repo-file build-file)))))
