diff options
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 c371cfb..8c45b30 100644 --- a/src/util.lisp +++ b/src/util.lisp @@ -390,7 +390,7 @@ Should be called soon after fork(2) in child processes." (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)) |