| author | Camm Maguire <camm@debian.org> | 2014年10月16日 16:40:31 -0400 |
|---|---|---|
| committer | Camm Maguire <camm@debian.org> | 2014年10月16日 16:40:31 -0400 |
| commit | 6293a1de484e9a0e5ab529bc31a99b711385638d (patch) | |
| tree | a7249198c4d3cdb79ea4a4717b95f79cbec77dec | |
| parent | fa7b99fc5d164e1ef4646bac7cde8c0ee43a86f2 (diff) | |
| download | gcl-6293a1de484e9a0e5ab529bc31a99b711385638d.tar.gz | |
| -rwxr-xr-x | gcl/o/file.d | 2 |
diff --git a/gcl/o/file.d b/gcl/o/file.d index 9eac7e5cb..9885e67bd 100755 --- a/gcl/o/file.d +++ b/gcl/o/file.d @@ -1985,7 +1985,7 @@ FFN(siLget_string_input_stream_index)() } DEFUN_NEW("TERMINAL-INPUT-STREAM-P",object,fSterminal_input_stream_p,SI,1,1,NONE,OO,OO,OO,OO,(object x),"") { - RETURN1(type_of(x)==t_stream && x->sm.sm_mode==smm_input && x->sm.sm_fp && isatty(fileno(x->sm.sm_fp)) ? Ct : Cnil); + RETURN1(type_of(x)==t_stream && x->sm.sm_mode==smm_input && x->sm.sm_fp && isatty(fileno((FILE *)x->sm.sm_fp)) ? Ct : Cnil); } LFD(siLmake_string_output_stream_from_string)() |