From e4004e8534f126d87a247c6d04594f3feb395f54 Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Tue, 27 Aug 2013 15:41:42 +0200 Subject: [PATCH] Pass flags to %MKOSTEMP --- src/syscalls/ffi-functions-unix.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/syscalls/ffi-functions-unix.lisp b/src/syscalls/ffi-functions-unix.lisp index 41657c5..9f8a7bf 100644 --- a/src/syscalls/ffi-functions-unix.lisp +++ b/src/syscalls/ffi-functions-unix.lisp @@ -344,7 +344,7 @@ FLAGS are used to open the temporary file. Return two values: the file descriptor and the path of the temporary file." (let ((template (concatenate 'string template "XXXXXX"))) (with-sstring-to-cstring (ptr template) - (values (%mkostemp ptr) (cstring-to-sstring ptr))))) + (values (%mkostemp ptr flags) (cstring-to-sstring ptr))))) ;;;------------------------------------------------------------------------- -- 2.11.4.GIT