diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-06 15:03:15 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-06 15:57:19 -0700 |
| commit | 51b9a4cae5f02972e98fb1b14fb7c097da4c2f29 (patch) | |
| tree | 3f568d4f3cf9447adc739f13f37f251e1f0dff49 /src/host.lisp | |
| parent | 9ccf2715cafabde09b1387a08177e5a6e99fd13c (diff) | |
| download | consfigurator-51b9a4cae5f02972e98fb1b14fb7c097da4c2f29.tar.gz | |
use AND rather than WHEN calling for return value
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/host.lisp')
| -rw-r--r-- | src/host.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
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))))))) |