diff options
Diffstat (limited to 'src/connection/setuid.lisp')
-rw-r--r-- | src/connection/setuid.lisp | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/connection/setuid.lisp b/src/connection/setuid.lisp index 6fba4c2..f99e4b8 100644 --- a/src/connection/setuid.lisp +++ b/src/connection/setuid.lisp @@ -20,12 +20,13 @@ (defclass setuid-connection (rehome-connection fork-connection) ()) -(defmethod establish-connection ((type (eql :setuid)) remaining &key to) +(defmethod establish-connection ((type (eql :setuid)) remaining &key user) (unless (and (lisp-connection-p) (zerop (nix:geteuid))) (error "~&SETUIDing requires a Lisp image running as root")) - (informat 1 "~&SETUIDing to ~A" to) - (let* ((ent (or (osicat:user-info to) - (failed-change "~&Could not look up user info for ~A." to))) + (informat 1 "~&SETUIDing to ~A" user) + (let* ((ent + (or (osicat:user-info user) + (failed-change "~&Could not look up user info for ~A." user))) (xdg-cache-home (ensure-directory-pathname (stripln |