mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-02 07:30:55 -08:00
Code Issues Projects Releases Packages Wiki Activity

MKSTEMP now accepts and returns pathnames

Browse source
This commit is contained in:
jjgarcia 2004-11-23 15:01:40 +00:00
parent b35828886a
commit 3b411fbfaf
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/c/unixfsys.d
View file

@ -760,7 +760,7 @@ si_mkstemp(cl_object template)
cl_index l;
int fd;
assert_type_string(template);
template = si_coerce_to_filename(template);
l = template->string.fillp;
output = cl_alloc_simple_string(l + 6);
memcpy(output->string.self, template->string.self, l);
@ -774,5 +774,5 @@ si_mkstemp(cl_object template)
if (fd < 0)
@(return Cnil)
close(fd);
@(return output)
@(return cl_truename(output))
}