From e7d6aac15e23958f52ab0ac7f41b6401f73c26cc Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@jjgr.(none)>
Date: Thu, 23 Oct 2008 19:33:46 +0200
Subject: [PATCH] Add smm_*_file types in several cases.

---
 src/c/pathname.d | 3 +++
 src/c/print.d    | 6 +++---
 2 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/src/c/pathname.d b/src/c/pathname.d
index cee9c3b19..8c5a7442e 100644
--- a/src/c/pathname.d
+++ b/src/c/pathname.d
@@ -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:
diff --git a/src/c/print.d b/src/c/print.d
index d886cc77c..d0c8cdce5 100644
--- a/src/c/print.d
+++ b/src/c/print.d
@@ -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);