diff options
Diffstat (limited to 'src/util/posix1e.lisp')
-rw-r--r-- | src/util/posix1e.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/util/posix1e.lisp b/src/util/posix1e.lisp index 2166921..e1ebc8d 100644 --- a/src/util/posix1e.lisp +++ b/src/util/posix1e.lisp @@ -44,7 +44,7 @@ (%acl-get-tag-type entry-d tag-type-p) (mem-ref tag-type-p 'acl_tag_t))) -(defmacro with-acl-free ((aclvar aclcall) &body forms) +(defmacro with-acl-free (((aclvar aclcall)) &body forms) (with-gensyms (aclvar*) `(let* ((,aclvar ,aclcall) (,aclvar* (make-pointer (pointer-address ,aclvar)))) @@ -57,7 +57,7 @@ "acl_set_qualifier" :int (entry-d acl_entry_t) (qualifier-p :pointer)) (defun acl-get-qualifier (entry-d type) - (with-acl-free (qualifier-p (%acl-get-qualifier entry-d)) + (with-acl-free ((qualifier-p (%acl-get-qualifier entry-d))) (mem-ref qualifier-p type))) |