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

character_p is not used. (S. Gromoff)

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-02-11 22:32:05 +01:00
parent 95e5ac1867
commit 73ead1c523
1 changed files with 0 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/c/file.d
View file

@ -3114,10 +3114,6 @@ ecl_make_file_stream_from_fd(cl_object fname, int fd, enum ecl_smmode smm,
cl_object stream = alloc_stream();
stream->stream.mode = (short)smm;
stream->stream.closed = 0;
#if defined (ECL_WSOCK)
if (smm == smm_input_wsock || smm == smm_io_wsock)
character_p = 1;
#endif
switch(smm) {
case smm_probe:
case smm_input:
@ -3520,10 +3516,6 @@ ecl_make_stream_from_FILE(cl_object fname, void *f, enum ecl_smmode smm,
stream = alloc_stream();
stream->stream.mode = (short)smm;
stream->stream.closed = 0;
#if defined (ECL_WSOCK)
if (smm == smm_input_wsock || smm == smm_io_wsock)
character_p = 1;
#endif
switch (smm) {
case smm_io:
stream->stream.ops = duplicate_dispatch_table(&io_stream_ops);