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

subprocess: windows: handle NIL as a stream argument

Browse source
This commit is contained in:
Daniel Kochmański 2017-02-21 07:46:43 +01:00
parent 58a705cf69
commit 000b6b0b00
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/c/unixsys.d
View file

@ -319,7 +319,10 @@ create_descriptor(cl_object stream, cl_object direction,
printf("open_osfhandle failed\n");
}
else if (Null(stream)) {
*child = NULL;
if (direction == @':input')
*child = open("nul", O_RDONLY);
else
*child = open("nul", O_WRONLY);
}
else if (!Null(cl_streamp(stream))) {
HANDLE stream_handle = ecl_stream_to_HANDLE