diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-07-23 11:37:25 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-07-24 12:39:35 -0700 |
commit | 885b9f3f762cdf18ff358509fd8838f8222b43ba (patch) | |
tree | a264d0d7406e5767cb22736e681dd8abbfe683d6 /src/util.lisp | |
parent | ae2f8d30cbcd82126de7daeb4b94dd05d5b46f01 (diff) | |
download | consfigurator-885b9f3f762cdf18ff358509fd8838f8222b43ba.tar.gz |
return type in FOREIGN-FUNCALL of geteuid(2) is unsigned
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/util.lisp')
-rw-r--r-- | src/util.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/util.lisp b/src/util.lisp index a6f713a..bedcb52 100644 --- a/src/util.lisp +++ b/src/util.lisp @@ -600,7 +600,7 @@ interactive debugger.")) (defun posix-login-environment (logname home) "Reset the environment after switching UID, or similar, in a :LISP connection. Does not currently establish a PAM session." - (let ((euid (foreign-funcall "geteuid" :int)) + (let ((euid (foreign-funcall "geteuid" :unsigned-int)) (maybe-preserve '("TERM"))) (when (zerop euid) (push "SSH_AUTH_SOCK" maybe-preserve)) |