From cdb028377e1e2f266401a4c1184ba95749f71d96 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Fri, 11 Mar 2022 14:46:39 -0700 Subject: rename CAPABILITY-P -> POSIX-CAPABILITY-P Signed-off-by: Sean Whitton --- src/util/linux-namespace.lisp | 2 +- src/util/posix1e.lisp | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) (limited to 'src/util') diff --git a/src/util/linux-namespace.lisp b/src/util/linux-namespace.lisp index 38d4c11..606f311 100644 --- a/src/util/linux-namespace.lisp +++ b/src/util/linux-namespace.lisp @@ -153,7 +153,7 @@ CONSFIGURATOR.UTIL.LINUX-NAMESPACE:REDUCE-ID-MAPS and user_namespaces(7)." (defun setgroups-p () "In a Lisp-type connection, do we have the ability to use setgroups(2)?" (and #-linux (zerop (nix:geteuid)) - #+linux (capability-p :cap-effective +CAP-SETGID+) + #+linux (posix-capability-p :cap-effective +CAP-SETGID+) #+linux (string= "allow" (stripln (read-file-string "/proc/thread-self/setgroups"))))) diff --git a/src/util/posix1e.lisp b/src/util/posix1e.lisp index e1ebc8d..270ecdf 100644 --- a/src/util/posix1e.lisp +++ b/src/util/posix1e.lisp @@ -76,7 +76,7 @@ "cap_get_flag" :int (cap-p :pointer) (cap cap_value_t) (flag cap_flag_t) (value-p :pointer)) -(defun capability-p (set &rest capabilities) +(defun posix-capability-p (set &rest capabilities) "Does the current thread have each of CAPABILITIES in SET?" (let ((cap-opaque (cap-get-proc))) (unwind-protect -- cgit v1.2.3