diff options
Diffstat (limited to 'src/util')
-rw-r--r-- | src/util/linux-namespace.lisp | 2 | ||||
-rw-r--r-- | src/util/posix1e.lisp | 2 |
2 files changed, 2 insertions, 2 deletions
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 |