From 51b9a4cae5f02972e98fb1b14fb7c097da4c2f29 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sat, 6 Mar 2021 15:03:15 -0700 Subject: use AND rather than WHEN calling for return value Signed-off-by: Sean Whitton --- src/host.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/host.lisp') diff --git a/src/host.lisp b/src/host.lisp index 2ce52ed..db028a7 100644 --- a/src/host.lisp +++ b/src/host.lisp @@ -109,5 +109,5 @@ entries." (%replace-propspec-into-host (make-instance 'host :attrs ',attrs) ,(props properties)) ,(car (getf attrs :desc))) - ,@(when deploy - `((defdeploy ,hostname-sym (,deploy ,hostname-sym))))))) + ,@(and deploy + `((defdeploy ,hostname-sym (,deploy ,hostname-sym))))))) -- cgit v1.2.3