diff options
Diffstat (limited to 'src/connection/as.lisp')
-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))) |