From ac8af44a2b999e492d247f87262878edfc8c6b6b Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Fri, 19 Mar 2021 18:48:37 -0700 Subject: %CONSFIGURE: don't prepend :LOCAL when a connection exists This was breaking DEPLOYS, DEPLOYS-THESE in certain cases. Signed-off-by: Sean Whitton --- src/deployment.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'src/deployment.lisp') diff --git a/src/deployment.lisp b/src/deployment.lisp index 693afb9..5f93f33 100644 --- a/src/deployment.lisp +++ b/src/deployment.lisp @@ -40,7 +40,9 @@ preprocessed." (apply-propspec (host-propspec *host*))) (connection-teardown *connection*))))) (let ((*host* (preprocess-host host))) - (connect (if (eq :local (caar connections)) + ;; prepend :LOCAL only if it's not already there and there is no + ;; connection already established + (connect (if (or *connection* (eq :local (caar connections))) connections (cons '(:local) connections)))))) -- cgit v1.2.3