bug#65666: Lockfiles break package-vc-install-from-checkout

[Joseph Turner]

To reproduce: clone a repo, ensure that create-lockfiles is non-nil,
edit a source file in the repo but do not save it, run
package-vc-install-from-checkout on the repo.

Backtrace:

Debugger entered--Lisp error: (file-missing 
"/home/joseph/.emacs.d/elpa/hyperdrive/.#hyperdrive.el")
  
comp-el-to-eln-filename("/home/joseph/.emacs.d/elpa/hyperdrive/.#hyperdrive.el")
  (comp-clean-up-stale-eln (comp-el-to-eln-filename file))
  (while (consp --cl-var--) (setq file (car --cl-var--)) 
(comp-clean-up-stale-eln (comp-el-to-eln-filename file)) (setq --cl-var-- (cdr 
--cl-var--)))
  (let* ((--cl-var-- (directory-files-recursively dir "\\.el\\'")) (file nil)) 
(while (consp --cl-var--) (setq file (car --cl-var--)) (comp-clean-up-stale-eln 
(comp-el-to-eln-filename file)) (setq --cl-var-- (cdr --cl-var--))) nil)
  (progn (let* ((--cl-var-- (directory-files-recursively dir "\\.el\\'")) (file 
nil)) (while (consp --cl-var--) (setq file (car --cl-var--)) 
(comp-clean-up-stale-eln (comp-el-to-eln-filename file)) (setq --cl-var-- (cdr 
--cl-var--))) nil))
  (if (featurep 'native-compile) (progn (let* ((--cl-var-- 
(directory-files-recursively dir "\\.el\\'")) (file nil)) (while (consp 
--cl-var--) (setq file (car --cl-var--)) (comp-clean-up-stale-eln 
(comp-el-to-eln-filename file)) (setq --cl-var-- (cdr --cl-var--))) nil)))
  package--delete-directory("/home/joseph/.emacs.d/elpa/hyperdrive")
  package-vc-install-from-checkout("~/.local/src/hyperdrive.el/" "hyperdrive")
  funcall-interactively(package-vc-install-from-checkout 
"~/.local/src/hyperdrive.el/" "hyperdrive")
  command-execute(package-vc-install-from-checkout record)
  execute-extended-command(nil "package-vc-install-from-checkout" nil)
  funcall-interactively(execute-extended-command nil 
"package-vc-install-from-checkout" nil)
  command-execute(execute-extended-command)