+

+(defun unix-mkstemp (template)

+  _N"Generates a unique temporary file name from TEMPLATE, and creates

+  and opens the file.  On success, the corresponding file descriptor

+  and name of the file is returned.

+

+ The last six characters of the template must be \"XXXXXX\"."

+  ;; Hope this buffer is large enough!

+  (let ((octets (%name->file template)))

+    (syscall ("mkstemp" c-call:c-string)

+	       (values result

+		       ;; Convert the file name back to a Lisp string.

+		       (%file->name octets))

+	       octets)))

+

+(defun unix-mkdtemp (template)

+  _N"Generate a uniquely named temporary directory from Template,

+  which must have \"XXXXXX\" as the last six characters.  The

+  directory is created with permissions 0700.  The name of the

+  directory is returned."

+  (let* ((octets (%name->file template))

+	 (result (alien-funcall

+		  (extern-alien "mkdtemp"

+				(function (* char)

+					  c-call:c-string))

+		  octets)))

+    (if (null-alien result)

+	(values nil (unix-errno))

+	(%file->name octets))))