aboutsummaryrefslogtreecommitdiff
path: root/src/property.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'src/property.lisp')
-rw-r--r--src/property.lisp4
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.