diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2022-08-05 10:55:27 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-08-05 10:55:27 -0700 |
commit | d346e769f49b9dcad1840036b38cd07e067a7e8b (patch) | |
tree | 1e0e5cd9f6fca879429684c7b1d1a6155439dfe3 | |
parent | 821658d0eb52f4ddf9d65d23bb4152668ff2cd48 (diff) | |
download | consfigurator-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.lisp | 6 |
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))) |