Commit eab58c5a authored by Eric Timmons's avatar Eric Timmons
Browse files

INSTALL ensures a session is started and is exported

parent f9a660eb
......@@ -10,6 +10,7 @@
#:clpm/context
#:clpm/install
#:clpm/source
#:clpm/version))
#:clpm/version)
(:export #:install))
(in-package #:clpm/clpm)
......@@ -12,6 +12,7 @@
#:clpm/log
#:clpm/resolve
#:clpm/requirement
#:clpm/session
#:clpm/source
#:clpm/version-strings)
(:export #:install
......@@ -93,15 +94,16 @@ SYSTEMS if such constraints cannot be extracted from the specifiers themselves.
VALIDATE must be a function of one argument (a diff) and returns non-NIL if the
install should proceed."
(let ((reqs (append (mapcar (rcurry #'make-requirement
:project
:version version :source source :ref ref :no-deps-p no-deps-p)
projects)
(mapcar (rcurry #'make-requirement
:system
:version version :source source :ref ref :no-deps-p no-deps-p)
systems))))
(install-requirements reqs :context context :validate validate :save-context-p save-context-p)))
(with-clpm-session ()
(let ((reqs (append (mapcar (rcurry #'make-requirement
:project
:version version :source source :ref ref :no-deps-p no-deps-p)
projects)
(mapcar (rcurry #'make-requirement
:system
:version version :source source :ref ref :no-deps-p no-deps-p)
systems))))
(install-requirements reqs :context context :validate validate :save-context-p save-context-p))))
(defun install-requirements (reqs &key
context
......
Supports Markdown
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