diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-06-25 14:23:31 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-06-25 16:10:57 -0700 |
| commit | d58361df88bf35364c0bc73f518524cba28e55bd (patch) | |
| tree | 5e7f7ef440976074a0b8fb0fcf8cfe42992c3ba5 /src/property.lisp | |
| parent | 24086ae742979b3599b014ae50da8f059e21f42c (diff) | |
| download | consfigurator-d58361df88bf35364c0bc73f518524cba28e55bd.tar.gz | |
hostattrs retrieval: accept explicit NIL for host
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property.lisp')
| -rw-r--r-- | src/property.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/property.lisp b/src/property.lisp index ee362ab..105c1f0 100644 --- a/src/property.lisp +++ b/src/property.lisp @@ -476,7 +476,8 @@ install an apt package but the host is FreeBSD.") "HOST value currently being preprocessed. Used by GET-HOSTATTRS to break infinite loops.") -(defun get-hostattrs (k &optional (host *host*) &aux (host (ensure-host host))) +(defun get-hostattrs + (k &optional host &aux (host (ensure-host (or host *host*)))) "Retrieve the list of static informational attributes of type KEY. Called by property :HOSTATTRS, :APPLY and :UNAPPLY subroutines." |