From 32efbbcc3b22d2625a5fe3413262aa9e5d83f758 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Thu, 9 Mar 2023 09:46:24 -0700 Subject: FIREWALLD::%FIREWALL-CMD: ensure that OFFLINE-APPLY param is a list Signed-off-by: Sean Whitton --- src/property/firewalld.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'src') diff --git a/src/property/firewalld.lisp b/src/property/firewalld.lisp index bd69252..6bac2f3 100644 --- a/src/property/firewalld.lisp +++ b/src/property/firewalld.lisp @@ -54,7 +54,9 @@ apply (offline-apply apply) (--permanent t) &aux (check-fn (if complement-check #'plusp #'zerop))) (:apply - (setq check (ensure-list check) apply (ensure-list apply)) + (setq check (ensure-list check) + apply (ensure-list apply) + offline-apply (ensure-list offline-apply)) (labels ((search-warning (output) (and warning (search output warning) :no-change)) (permanent-change () -- cgit v1.2.3