X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-posix%2Finterface.lisp;h=2aa9fdc981f65dfc60e071cf54073388a18934cd;hb=a72b7117e8f2a832f85bf18f21dbbd8e804211ec;hp=a310e54601f1bbe0812e893dc2671ece6f798fdc;hpb=e411bd41397e1df2423838a4f9c2fdaa27727e93;p=sbcl.git

diff --git a/contrib/sb-posix/interface.lisp b/contrib/sb-posix/interface.lisp
index a310e54..2aa9fdc 100644
--- a/contrib/sb-posix/interface.lisp
+++ b/contrib/sb-posix/interface.lisp
@@ -37,26 +37,26 @@
 ;;; uid, gid
 
 (define-call "geteuid" sb-posix::uid-t not)	;"always successful", it says
-(define-call "getresuid" sb-posix::uid-t not)
+#+linux (define-call "getresuid" sb-posix::uid-t not)
 (define-call "getuid" sb-posix::uid-t not)
 (define-call "seteuid" int minusp (uid sb-posix::uid-t))
 #+linux (define-call "setfsuid" int minusp (uid sb-posix::uid-t))
 (define-call "setreuid" int minusp
 	     (ruid sb-posix::uid-t) (euid sb-posix::uid-t))
-(define-call "setresuid" int minusp
+#+linux (define-call "setresuid" int minusp
 	     (ruid sb-posix::uid-t) (euid sb-posix::uid-t)
 	     (suid sb-posix::uid-t))
 (define-call "setuid" int minusp (uid sb-posix::uid-t))
 
 (define-call "getegid" sb-posix::gid-t not)
 (define-call "getgid" sb-posix::gid-t not)
-(define-call "getresgid" sb-posix::gid-t not)
+#+linux (define-call "getresgid" sb-posix::gid-t not)
 (define-call "setegid" int minusp (gid sb-posix::gid-t))
 #+linux (define-call "setfsgid" int minusp (gid sb-posix::gid-t))
 (define-call "setgid" int minusp (gid sb-posix::gid-t))
 (define-call "setregid" int minusp
 	     (rgid sb-posix::gid-t) (egid sb-posix::gid-t))
-(define-call "setresgid" int minusp
+#+linux (define-call "setresgid" int minusp
 	     (rgid sb-posix::gid-t)
 	     (egid sb-posix::gid-t) (sgid sb-posix::gid-t))