diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2022-03-11 14:45:18 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-03-11 16:25:33 -0700 |
| commit | bd23db4c51f8d6836e6f1cf10f47000ba7f752e8 (patch) | |
| tree | bf7cb0c8f55083589b32768bf15eb01a13d9c504 /src/util/linux-namespace.lisp | |
| parent | 43c3a16a239fde1648846e8f07f1e6553e859b51 (diff) | |
| download | consfigurator-bd23db4c51f8d6836e6f1cf10f47000ba7f752e8.tar.gz | |
WITH-ACL-FREE: add an extra level of list depth
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/util/linux-namespace.lisp')
| -rw-r--r-- | src/util/linux-namespace.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/util/linux-namespace.lisp b/src/util/linux-namespace.lisp index afa3080..38d4c11 100644 --- a/src/util/linux-namespace.lisp +++ b/src/util/linux-namespace.lisp @@ -119,7 +119,7 @@ CONSFIGURATOR.UTIL.LINUX-NAMESPACE:REDUCE-ID-MAPS and user_namespaces(7)." (when (and dirp (not linkp)) (mapc #'shift (local-directory-contents file)))))) (shift-acl (file type) - (with-acl-free (acl (acl-get-file file type)) + (with-acl-free ((acl (acl-get-file file type))) (with-foreign-objects ((uid 'uid_t) (gid 'gid_t) (entry-p 'acl_entry_t)) (loop with setp |