diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-09-05 15:38:46 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-09-08 13:09:37 -0700 |
commit | 210a2d70570792f8fac53960557232de910bff37 (patch) | |
tree | 4060cbe2298a02426b2df7c31507512c948a6c1e /src/property/firewalld.lisp | |
parent | a41a42f86145909bafa1d7ce75a2ca3a9944e7fa (diff) | |
download | consfigurator-210a2d70570792f8fac53960557232de910bff37.tar.gz |
add dep on Anaphora and use APROG1, ALET & AAND in various places
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property/firewalld.lisp')
-rw-r--r-- | src/property/firewalld.lisp | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/src/property/firewalld.lisp b/src/property/firewalld.lisp index a39b22c..f4d7a25 100644 --- a/src/property/firewalld.lisp +++ b/src/property/firewalld.lisp @@ -37,13 +37,12 @@ (flet ((run () (let ((output (mrun "firewall-cmd" args))) (and warning (search warning output) :no-change)))) - (let ((result (if file - (with-change-if-changes-file - ((merge-pathnames file #P"/etc/firewalld/")) (run)) - (run)))) - (unless (eql result :no-change) - (mrun "firewall-cmd" "--reload")) - result)))) + (aprog1 (if file + (with-change-if-changes-file + ((merge-pathnames file #P"/etc/firewalld/")) (run)) + (run)) + (unless (eql it :no-change) + (mrun "firewall-cmd" "--reload")))))) ;;;; Setting contents of XML configuration files |