diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-29 15:12:54 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-30 10:03:03 -0700 |
| commit | edbba484918f6de83680a5b29e561fba981e05e9 (patch) | |
| tree | 9418abacd664e22fe7dde4137d8962825943d168 /src/property.lisp | |
| parent | dc396f800b11fc9aa4bae07df268ad51a2740d8b (diff) | |
| download | consfigurator-edbba484918f6de83680a5b29e561fba981e05e9.tar.gz | |
factor out ENSURE-HOST & call it in hostattrs accessors
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property.lisp')
| -rw-r--r-- | src/property.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/property.lisp b/src/property.lisp index c3a6a5d..9fe0c72 100644 --- a/src/property.lisp +++ b/src/property.lisp @@ -453,7 +453,7 @@ other than constant values and propapps to property combinators." this property cannot be applied to this host. E.g. the property will try to install an apt package but the host is FreeBSD.") -(defun get-hostattrs (k &optional (host *host*)) +(defun get-hostattrs (k &optional (host *host*) &aux (host (ensure-host host))) "Retrieve the list of static informational attributes of type KEY. Called by property :HOSTATTRS, :APPLY and :UNAPPLY subroutines." |