Commit 8abcd526 authored by Eric Timmons's avatar Eric Timmons
Browse files

bundle exec: error if a release is not installed

parent 3020365c
......@@ -89,7 +89,7 @@ the lock file if necessary."
(serialize-context-to-stream lockfile stream)))
changedp))
(defun bundle-source-registry (clpmfile-designator &key include-client-p)
(defun bundle-source-registry (clpmfile-designator &key include-client-p ignore-missing-releases)
(let* ((*fetch-repo-automatically* nil)
(clpmfile (get-clpmfile clpmfile-designator))
(lockfile-pathname (clpmfile-lockfile-pathname clpmfile))
......@@ -98,6 +98,12 @@ the lock file if necessary."
(unless (probe-file lockfile-pathname)
(error "Lockfile ~A does not exist" lockfile-pathname))
(setf lockfile (load-lockfile lockfile-pathname :localp t))
(unless ignore-missing-releases
(let* ((releases (context-releases lockfile))
(missing-releases (remove-if #'release-installed-p releases)))
(when missing-releases
(error "The following releases are not installed: ~{~S~^, ~}"
(mapcar (compose #'project-name #'release-project) missing-releases)))))
(context-to-asdf-source-registry-form
lockfile
(when include-client-p
......
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