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/propspec.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/propspec.lisp')
| -rw-r--r-- | src/propspec.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/propspec.lisp b/src/propspec.lisp index 81e50a2..e1607af 100644 --- a/src/propspec.lisp +++ b/src/propspec.lisp @@ -178,7 +178,7 @@ PRINT-OBJECT.")) "Convert a property application specification expression into a property application specification proper by associating it with a list of ASDF systems." - (if (or systems-supplied-p (not propspec)) + (if systems-supplied-p (make-instance 'unpreprocessed-propspec :systems systems :propspec propspec) (make-instance 'unpreprocessed-propspec :propspec propspec))) |