From 57311c9b05166f81a2fdeee544252e580a46e3a4 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Thu, 3 Jun 2021 08:48:24 -0700 Subject: define *PREPROCESSING-HOST* earlier Signed-off-by: Sean Whitton --- src/host.lisp | 4 ---- 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. -- cgit v1.2.3