From: Stelian Ionescu Date: Tue, 27 Aug 2013 13:41:42 +0000 (+0200) Subject: Pass flags to %MKOSTEMP X-Git-Tag: v0.8.1~50 X-Git-Url: https://repo.or.cz/w/iolib.git/commitdiff_plain/e4004e8534f126d87a247c6d04594f3feb395f54 Pass flags to %MKOSTEMP --- 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))))) ;;;-------------------------------------------------------------------------