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 | |
parent | e63c77c113e483f6fe8d76a246497d76358efe3d (diff) | |
download | consfigurator-57311c9b05166f81a2fdeee544252e580a46e3a4.tar.gz |
define *PREPROCESSING-HOST* earlier
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
-rw-r--r-- | src/host.lisp | 4 | ||||
-rw-r--r-- | src/property.lisp | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/src/host.lisp b/src/host.lisp index 50155c8..25decf9 100644 --- a/src/host.lisp +++ b/src/host.lisp @@ -87,10 +87,6 @@ attributes, so that implementations of ESTABLISH-CONNECTION can push new attributes (typically to request prerequisite data) without disturbing host values higher up the call stack.")) -(defparameter *preprocessing-host* nil - "HOST value currently being preprocessed. -Used by GET-HOSTATTRS to break infinite loops.") - (defmethod preprocess-host ((host preprocessed-host)) (shallow-copy-host host)) 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. |