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

In ecl_make_stream_from_fd(), complain if fdopen() fails.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-03-20 15:29:41 +01:00
parent dfa1ad5827
commit 28e1173507
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/c/file.d
View file

@ -3883,6 +3883,11 @@ ecl_make_stream_from_fd(cl_object fname, int fd, enum ecl_smmode smm,
#else
fp = fdopen(fd, mode);
#endif
if (fp == NULL) {
printf("'%s'\n", mode);
FElibc_error("Unable to create stream for file descriptor ~D",
1, ecl_make_integer(fd));
}
ecl_enable_interrupts();
return ecl_make_stream_from_FILE(fname, fp, smm, byte_size, flags,
external_format);