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

TWO-WAY-STREAMS are interactive if the input stream is

Browse source
This commit is contained in:
jjgarcia 2005-07-08 15:22:53 +00:00
parent f76c1888c6
commit f703c00ed9
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/c/file.d
View file

@ -2755,6 +2755,9 @@ cl_interactive_stream_p(cl_object strm)
case smm_synonym:
strm = symbol_value(strm->stream.object0);
goto BEGIN;
case smm_two_way:
strm = strm->stream.object0;
goto BEGIN;
case smm_input:
case smm_io:
#ifdef HAVE_ISATTY