From f08df5cc392f16e5a702fbac4be0504842f30f00 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Thu, 1 Apr 2021 23:34:55 -0700 Subject: DEPLOY: don't accept string for host That feature makes sense only for DEPLOY-THESE. Signed-off-by: Sean Whitton --- src/deployment.lisp | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'src/deployment.lisp') diff --git a/src/deployment.lisp b/src/deployment.lisp index 472ba4b..5679d59 100644 --- a/src/deployment.lisp +++ b/src/deployment.lisp @@ -111,9 +111,7 @@ The evaluation of ADDITIONAL-PROPERTIES to produce a property application specification may retrieve existing hostattrs, but should not set any new ones (not to be confused with how the :HOSTATTRS subroutines of properties in ADDITIONAL-PROPERTIES may set additional hostattrs)." - (once-only ((host (if (stringp host) - `(make-host :hostattrs (list :hostname (list ,host))) - host))) + (once-only (host) `(deploy* ',connections ,host (let ((*host* (shallow-copy-host ,host))) -- cgit v1.2.3