From 0ad38e2a3df083c5926c3497e7983dbe97e95f5d Mon Sep 17 00:00:00 2001
From: Marius Gerbershagen <marius.gerbershagen@gmail.com>
Date: Sun, 20 Jan 2019 15:57:47 +0100
Subject: [PATCH] fix return statement of si_copy_stream

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

diff --git a/src/c/file.d b/src/c/file.d
index 997ca1685..6030c9b9f 100755
--- a/src/c/file.d
+++ b/src/c/file.d
@@ -5082,7 +5082,7 @@ si_copy_stream(cl_object in, cl_object out, cl_object wait)
     }
   }
   ecl_force_output(out);
-  @(return c==EOF);
+  @(return ((c==EOF) ? ECL_T : ECL_NIL));
 }