Pass flags to %MKOSTEMP
authorStelian Ionescu <sionescu@cddr.org>
Tue, 27 Aug 2013 13:41:42 +0000 (27 15:41 +0200)
committerStelian Ionescu <sionescu@cddr.org>
Tue, 27 Aug 2013 13:41:42 +0000 (27 15:41 +0200)
src/syscalls/ffi-functions-unix.lisp

index 41657c5..9f8a7bf 100644 (file)
@@ -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)))))
 \f
 
 ;;;-------------------------------------------------------------------------