diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-07-01 13:39:39 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-07-06 21:18:26 -0700 |
| commit | 646585a7a79f3ff6b8f5fc413b87f0903f3c2151 (patch) | |
| tree | bd833a6a3aec380505b36894c53398dd1fb49c92 /src/deployment.lisp | |
| parent | 3c92310593f8b1fce7b63051dce150fcf5300f75 (diff) | |
| download | consfigurator-646585a7a79f3ff6b8f5fc413b87f0903f3c2151.tar.gz | |
MAKE-PROPSPEC: propagate *CONSFIG* even when propspec expression nil
Previously, MAKE-PROPSPEC would store nil for the SYSTEMS slot in the case
where the PROPSPEC argument was nil. The idea behind this was that if there
are no properties to apply, then there is no need to load any ASDF systems.
However, the SYSTEMS slot is how a HOST value containing the propspec records
the systems required not just to apply its properties, but also what's
required to instantiate all of its hostattrs. For example, when some of these
hostattrs are CLOS objects, the classes of those objects must be loaded. So
don't set SYSTEMS to nil just because the propspec expression is nil.
Also see edbba484918f6de83680a5b29e561fba981e05e9.
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/deployment.lisp')
| -rw-r--r-- | src/deployment.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/deployment.lisp b/src/deployment.lisp index 22a1458..68acdd0 100644 --- a/src/deployment.lisp +++ b/src/deployment.lisp @@ -237,7 +237,8 @@ for testing properties at the REPL. See also EVALS." (run-program '("id") :output :string))) (,hostname (hostname-f)) (,host (or (symbol-value (find-symbol (string-upcase ,hostname))) - (make-host :hostattrs `(:hostname (,,hostname)))))) + (make-host :hostattrs `(:hostname (,,hostname)) + :propspec (make-propspec :systems nil))))) (deploy-these* `((:sudo :as ,(format nil "~A@~A" ,username ,hostname))) ,host |