mirror of
https://gitlab.com/embeddable-common-lisp/ecl.git
synced 2026-01-06 17:30:41 -08:00
FILE-POSITION must return NIL on broadcast streams
This commit is contained in:
parent
a819d7c354
commit
dd1921df4e
1 changed files with 1 additions and 1 deletions
|
|
@ -1837,7 +1837,7 @@ BEGIN:
|
|||
case smm_broadcast:
|
||||
strm = strm->stream.object0;
|
||||
if (endp(strm))
|
||||
return MAKE_FIXNUM(0);
|
||||
return Cnil;
|
||||
strm = CAR(strm);
|
||||
goto BEGIN;
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue