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

The stream-external-format of a broadcast stream is always :default.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-12-25 19:50:51 +01:00
parent 5731ec7e62
commit 09cbce533a
1 changed files with 1 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/c/file.d
View file

@ -2011,11 +2011,7 @@ const struct ecl_file_ops broadcast_ops = {
streams = CONS(x, streams);
}
x = alloc_stream();
if (Null(streams)) {
x->stream.format = @':pass-through';
} else {
x->stream.format = cl_stream_external_format(ECL_CONS_CAR(streams));
}
x->stream.format = @':default';
x->stream.ops = duplicate_dispatch_table(&broadcast_ops);
x->stream.mode = (short)smm_broadcast;
BROADCAST_STREAM_LIST(x) = cl_nreverse(streams);