diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-10 19:50:24 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-10 19:50:24 -0700 |
commit | 9535e5c0ea36da775a4c3b998fab77c5564abbb3 (patch) | |
tree | 30a9b17681d13010a1c12c9dc7ca29a37e1d7da4 | |
parent | 40e12afba3819abdf84e9db86a1afe1cbc50980f (diff) | |
download | consfigurator-9535e5c0ea36da775a4c3b998fab77c5564abbb3.tar.gz |
SERVICE:WITHOUT-STARTING-SERVICES: use UNWIND-PROTECT-IN-PARENT
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
-rw-r--r-- | src/property/service.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/property/service.lisp b/src/property/service.lisp index 96f864e..5007604 100644 --- a/src/property/service.lisp +++ b/src/property/service.lisp @@ -77,7 +77,7 @@ properties." ;; past. (SLEEP 1) is only approximately one second so ;; check that it's actually been a second. (loop do (sleep 1) until (> (get-universal-time) before)) - (unwind-protect + (unwind-protect-in-parent (with-preserve-hostattrs (push-hostattrs :no-services t) (propappapply propapp)) |