aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSean Whitton <spwhitton@spwhitton.name>2022-08-05 10:55:27 -0700
committerSean Whitton <spwhitton@spwhitton.name>2022-08-05 10:55:27 -0700
commitd346e769f49b9dcad1840036b38cd07e067a7e8b (patch)
tree1e0e5cd9f6fca879429684c7b1d1a6155439dfe3
parent821658d0eb52f4ddf9d65d23bb4152668ff2cd48 (diff)
downloadconsfigurator-d346e769f49b9dcad1840036b38cd07e067a7e8b.tar.gz
:AS: fix name of keyword argument to :SU, :USER -> :TO
Reported-by: Andreas Reuleaux <rx@a-rx.info> Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
-rw-r--r--src/connection/as.lisp6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/connection/as.lisp b/src/connection/as.lisp
index a78f13f..aa24b0c 100644
--- a/src/connection/as.lisp
+++ b/src/connection/as.lisp
@@ -30,6 +30,6 @@ whether it is possible to establish a :SETUID connection.
Note that both these connection types require root."
;; An alternative to :SU would be :SUDO or runuser(1), but :SU is more
;; portable.
- (establish-connection (if (and (lisp-connection-p) (can-setuid))
- :setuid :su)
- remaining :user user))
+ (let ((setuid (and (lisp-connection-p) (can-setuid))))
+ (establish-connection
+ (if setuid :setuid :su) remaining (if setuid :user :to) user)))