From f3f7947f5dba2cea973e414c668ea7048c46fe62 Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@users.sourceforge.net>
Date: Fri, 19 Nov 2010 18:09:33 +0100
Subject: [PATCH] Guard code that is only used with CLOS streams (J. Jaakkola)

---
 src/c/file.d | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/c/file.d b/src/c/file.d
index fe9b69af7..3ca17a860 100755
--- a/src/c/file.d
+++ b/src/c/file.d
@@ -1139,6 +1139,7 @@ utf_8_encoder(cl_object stream, unsigned char *buffer, ecl_character c)
  * CLOS STREAMS
  */
 
+#ifdef ECL_CLOS_STREAMS
 static cl_index
 clos_stream_read_byte8(cl_object strm, unsigned char *c, cl_index n)
 {
@@ -1336,6 +1337,7 @@ const struct ecl_file_ops clos_stream_ops = {
 	clos_stream_column,
 	clos_stream_close
 };
+#endif /* ECL_CLOS_STREAMS */
 
 /**********************************************************************
  * STRING OUTPUT STREAMS