From 805c59aeb5a65aa2b05ae177acbd141d517e4d06 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sat, 2 Apr 2022 14:56:37 -0700 Subject: ASSERT-EUID-ROOT: signal ABORTED-CHANGE rather than FAILED-CHANGE Signed-off-by: Sean Whitton --- src/property.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/property.lisp') diff --git a/src/property.lisp b/src/property.lisp index 23587d6..534426b 100644 --- a/src/property.lisp +++ b/src/property.lisp @@ -590,7 +590,7 @@ PATH if PATH already has the specified CONTENT and MODE." (defun assert-euid-root () "Assert that the remote user has uid 0 (root)" (unless (zerop (get-connattr :remote-uid)) - (failed-change "Property requires root to apply"))) + (aborted-change "Property requires root to apply"))) (defun assert-connection-supports (type) (unless (or (eq type :posix) (lisp-connection-p)) -- cgit v1.2.3