From e321f00a9503f5e6119be8e6ce8bf0d78844a256 Mon Sep 17 00:00:00 2001 From: Kieran Date: Mon, 18 Jul 2016 05:29:54 +1000 Subject: [PATCH] Fix bogus getresuid and getresgid --- contrib/sb-posix/interface.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/contrib/sb-posix/interface.lisp b/contrib/sb-posix/interface.lisp index 0c9c235..dfec221 100644 --- a/contrib/sb-posix/interface.lisp +++ b/contrib/sb-posix/interface.lisp @@ -281,7 +281,7 @@ ;; uid, gid (define-call "geteuid" uid-t never-fails) ; "always successful", it says #-sunos - (define-call "getresuid" uid-t never-fails) + (define-call "getresuid" int minusp (ruid (* uid-t)) (euid (* uid-t)) (suid (* uid-t))) (define-call "getuid" uid-t never-fails) (define-call "seteuid" int minusp (uid uid-t)) #-sunos @@ -293,7 +293,7 @@ (define-call "getegid" gid-t never-fails) (define-call "getgid" gid-t never-fails) #-sunos - (define-call "getresgid" gid-t never-fails) + (define-call "getresgid" int minusp (rgid (* gid-t)) (egid (* gid-t)) (sgid (* gid-t))) (define-call "setegid" int minusp (gid gid-t)) #-sunos (define-call "setfsgid" int minusp (gid gid-t)) -- 2.9.0