From 9535e5c0ea36da775a4c3b998fab77c5564abbb3 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Mon, 10 May 2021 19:50:24 -0700 Subject: SERVICE:WITHOUT-STARTING-SERVICES: use UNWIND-PROTECT-IN-PARENT Signed-off-by: Sean Whitton --- src/property/service.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)) -- cgit v1.2.3