Commit 34c3ec53 authored by Eric Timmons's avatar Eric Timmons
Browse files

*VCS-PROJECT-OVERRIDE-FUN* set too many places

parent 587db331
...@@ -112,7 +112,6 @@ the lock file if necessary." ...@@ -112,7 +112,6 @@ the lock file if necessary."
(with-bundle-session (clpmfile) (with-bundle-session (clpmfile)
(with-sources-using-installed-only () (with-sources-using-installed-only ()
(let* ((lockfile-pathname (clpmfile-lockfile-pathname clpmfile)) (let* ((lockfile-pathname (clpmfile-lockfile-pathname clpmfile))
(*vcs-project-override-fun* (make-vcs-override-fun (clpmfile-pathname clpmfile)))
lockfile) lockfile)
(unless (probe-file lockfile-pathname) (unless (probe-file lockfile-pathname)
(error "Lockfile ~A does not exist" lockfile-pathname)) (error "Lockfile ~A does not exist" lockfile-pathname))
...@@ -134,7 +133,6 @@ the lock file if necessary." ...@@ -134,7 +133,6 @@ the lock file if necessary."
(with-bundle-session (clpmfile) (with-bundle-session (clpmfile)
(let* ((clpmfile (get-clpmfile clpmfile)) (let* ((clpmfile (get-clpmfile clpmfile))
(lockfile-pathname (clpmfile-lockfile-pathname clpmfile)) (lockfile-pathname (clpmfile-lockfile-pathname clpmfile))
(*vcs-project-override-fun* (make-vcs-override-fun (clpmfile-pathname clpmfile)))
(lockfile nil) (lockfile nil)
(changedp nil)) (changedp nil))
(unless (probe-file lockfile-pathname) (unless (probe-file lockfile-pathname)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment