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

Add smm_*_file types in several cases.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2008-10-23 19:33:46 +02:00
parent e5c608b379
commit e7d6aac15e
2 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/c/pathname.d
View file

@ -652,6 +652,9 @@ L:
case smm_output:
case smm_probe:
case smm_io:
case smm_input_file:
case smm_output_file:
case smm_io_file:
x = IO_STREAM_FILENAME(x);
goto L;
case smm_synonym:

6
src/c/print.d
View file

@ -1344,16 +1344,16 @@ si_write_ugly_object(cl_object x, cl_object stream)
if (ecl_print_readably()) FEprint_not_readable(x);
write_str(x->stream.closed? "#<closed " : "#<", stream);
switch ((enum ecl_smmode)x->stream.mode) {
case smm_input_file:
case smm_input:
write_str("input stream ", stream);
si_write_ugly_object(IO_STREAM_FILENAME(x), stream);
break;
case smm_output_file:
case smm_output:
write_str("output stream ", stream);
si_write_ugly_object(IO_STREAM_FILENAME(x), stream);
break;
#ifdef _MSC_VER
case smm_input_wsock:
write_str("input win32 socket stream ", stream);
@ -1370,7 +1370,7 @@ si_write_ugly_object(cl_object x, cl_object stream)
si_write_ugly_object(IO_STREAM_FILENAME(x), stream);
break;
#endif
case smm_io_file:
case smm_io:
write_str("io stream ", stream);
si_write_ugly_object(IO_STREAM_FILENAME(x), stream);