diff options
Diffstat (limited to 'src/connection/as.lisp')
-rw-r--r-- | src/connection/as.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/connection/as.lisp b/src/connection/as.lisp index 0a15cf8..a78f13f 100644 --- a/src/connection/as.lisp +++ b/src/connection/as.lisp @@ -23,7 +23,7 @@ (defun can-setuid () (zerop (nix:geteuid))) -(defmethod establish-connection ((type (eql :as)) remaining &key to) +(defmethod establish-connection ((type (eql :as)) remaining &key user) "Establish a :SETUID or :SU connection to another user account, depending on whether it is possible to establish a :SETUID connection. @@ -32,4 +32,4 @@ Note that both these connection types require root." ;; portable. (establish-connection (if (and (lisp-connection-p) (can-setuid)) :setuid :su) - remaining :to to)) + remaining :user user)) |