diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-06-03 08:48:24 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-06-03 10:47:00 -0700 |
| commit | 57311c9b05166f81a2fdeee544252e580a46e3a4 (patch) | |
| tree | 9e81ec9eb5eba4133fde7f7bbdc7d7da9fd6ce01 /src/property.lisp | |
| parent | e63c77c113e483f6fe8d76a246497d76358efe3d (diff) | |
| download | consfigurator-57311c9b05166f81a2fdeee544252e580a46e3a4.tar.gz | |
define *PREPROCESSING-HOST* earlier
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property.lisp')
| -rw-r--r-- | src/property.lisp | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/property.lisp b/src/property.lisp index 3242c9b..d973dd9 100644 --- a/src/property.lisp +++ b/src/property.lisp @@ -465,6 +465,10 @@ 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.") +(defparameter *preprocessing-host* nil + "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))) "Retrieve the list of static informational attributes of type KEY. |