A typo in %mOKstemp -> %mKOstemp.7/head
authorStas Boukarev <stassats@gmail.com>
Wed, 21 Aug 2013 11:09:29 +0000 (21 15:09 +0400)
committerStas Boukarev <stassats@gmail.com>
Wed, 21 Aug 2013 11:09:29 +0000 (21 15:09 +0400)
src/syscalls/ffi-functions-unix.lisp

index ada7ba7..41657c5 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 (%mokstemp ptr) (cstring-to-sstring ptr)))))
+      (values (%mkostemp ptr) (cstring-to-sstring ptr)))))
 \f
 
 ;;;-------------------------------------------------------------------------