From 885b9f3f762cdf18ff358509fd8838f8222b43ba Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Fri, 23 Jul 2021 11:37:25 -0700 Subject: return type in FOREIGN-FUNCALL of geteuid(2) is unsigned Signed-off-by: Sean Whitton --- src/util.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/util.lisp') 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)) -- cgit v1.2.3