diff options
-rw-r--r-- | src/property.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/property.lisp b/src/property.lisp index 263200f..53e42a3 100644 --- a/src/property.lisp +++ b/src/property.lisp @@ -452,7 +452,7 @@ apply or unapply properties.") (defun assert-euid-root () "Assert that the remote user has uid 0 (root)" - (if-let (uid (slot-value *connection* 'remote-uid)) + (if-let ((uid (slot-value *connection* 'remote-uid))) (unless (zerop uid) (failed-change "Property requires root to apply")) (multiple-value-bind (out err exit) |