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

broadcast-stream: delegate file-* functions to the last component.

Browse source 
Fixes #452.
This commit is contained in:
Daniel Kochmanski 2018-09-23 14:42:09 +02:00
parent 3f8a78ca63
commit e10802b5e8
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/c/file.d
View file

@ -1932,7 +1932,7 @@ broadcast_length(cl_object strm)
cl_object l = BROADCAST_STREAM_LIST(strm);
if (Null(l))
return ecl_make_fixnum(0);
return ecl_file_length(ECL_CONS_CAR(l));
return ecl_file_length(ECL_CONS_CAR(ecl_last(l, 1)));
}
static cl_object
@ -1941,7 +1941,7 @@ broadcast_get_position(cl_object strm)
cl_object l = BROADCAST_STREAM_LIST(strm);
if (Null(l))
return ecl_make_fixnum(0);
return ecl_file_position(ECL_CONS_CAR(l));
return ecl_file_position(ECL_CONS_CAR(ecl_last(l, 1)));
}
static cl_object
@ -4807,6 +4807,7 @@ cl_file_string_length(cl_object stream, cl_object string)
if (Null(stream)) {
@(return ecl_make_fixnum(1));
} else {
stream = ECL_CONS_CAR(ecl_last(stream, 1));
goto BEGIN;
}
}