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

We can replace ecl_endp with Null because the concatenated stream list is a proper list.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-02-28 13:40:09 +01:00
parent 094f345b61
commit e758c7591a
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/c/file.d
View file

@ -2202,7 +2202,7 @@ concatenated_read_byte8(cl_object strm, unsigned char *c, cl_index n)
{
cl_object l = CONCATENATED_STREAM_LIST(strm);
cl_index out = 0;
while (out < n && !ecl_endp(l)) {
while (out < n && !Null(l)) {
cl_index left = n - out;
cl_index delta = ecl_read_byte8(ECL_CONS_CAR(l), c + out, n - out);
out += delta;
@ -2217,7 +2217,7 @@ concatenated_read_byte(cl_object strm)
{
cl_object l = CONCATENATED_STREAM_LIST(strm);
cl_object c = Cnil;
while (!ecl_endp(l)) {
while (!Null(l)) {
c = ecl_read_byte(ECL_CONS_CAR(l));
if (c != Cnil) break;
CONCATENATED_STREAM_LIST(strm) = l = ECL_CONS_CDR(l);
@ -2230,7 +2230,7 @@ concatenated_read_char(cl_object strm)
{
cl_object l = CONCATENATED_STREAM_LIST(strm);
ecl_character c = EOF;
while (!ecl_endp(l)) {
while (!Null(l)) {
c = ecl_read_char(ECL_CONS_CAR(l));
if (c != EOF) break;
CONCATENATED_STREAM_LIST(strm) = l = ECL_CONS_CDR(l);
@ -2251,7 +2251,7 @@ static int
concatenated_listen(cl_object strm)
{
cl_object l = CONCATENATED_STREAM_LIST(strm);
while (!ecl_endp(l)) {
while (!Null(l)) {
int f = ecl_listen_stream(ECL_CONS_CAR(l));
l = ECL_CONS_CDR(l);
if (f == ECL_LISTEN_EOF) {
@ -3835,7 +3835,7 @@ cl_file_string_length(cl_object stream, cl_object string)
}
if (stream->stream.mode == smm_broadcast) {
stream = BROADCAST_STREAM_LIST(stream);
if (ecl_endp(stream)) {
if (Null(stream)) {
@(return MAKE_FIXNUM(1));
} else {
goto BEGIN;