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

Null stream should be closed initially

Browse source
This commit is contained in:
jjgarcia 2008-08-19 12:09:56 +00:00
parent eb548bfd4a
commit ba7f0da4a7
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/file.d
View file

@ -2992,7 +2992,7 @@ init_file(void)
null_stream = cl_alloc_object(t_stream);
null_stream->stream.mode = (short)smm_io;
null_stream->stream.closed = 0;
null_stream->stream.closed = 1;
null_stream->stream.file = NULL;
null_stream->stream.object0 = @'base-char';
null_stream->stream.object1 = make_constant_base_string("/dev/null");