From: Stas Boukarev <stassats@gmail.com>
Date: Wed, 21 Aug 2013 11:09:29 +0000 (+0400)
Subject: A typo in %mOKstemp -> %mKOstemp.
X-Git-Tag: v0.8.1~51^2
X-Git-Url: https://repo.or.cz/w/iolib.git/commitdiff_plain/2b6532058ef83286a6c329ec7364dd3b2e9be15a

A typo in %mOKstemp -> %mKOstemp.
---

diff --git a/src/syscalls/ffi-functions-unix.lisp b/src/syscalls/ffi-functions-unix.lisp
index ada7ba7..41657c5 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 (%mokstemp ptr) (cstring-to-sstring ptr)))))
+      (values (%mkostemp ptr) (cstring-to-sstring ptr)))))
 
 
 ;;;-------------------------------------------------------------------------