From 28e117350757fca58c6fc37bbbac6e70fda4dca8 Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@jjgr-2.local>
Date: Sat, 20 Mar 2010 15:29:41 +0100
Subject: [PATCH] In ecl_make_stream_from_fd(), complain if fdopen() fails.

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

diff --git a/src/c/file.d b/src/c/file.d
index 158bf9b48..d7aa863dd 100755
--- a/src/c/file.d
+++ b/src/c/file.d
@@ -3883,6 +3883,11 @@ ecl_make_stream_from_fd(cl_object fname, int fd, enum ecl_smmode smm,
 #else
 	fp = fdopen(fd, mode);
 #endif
+        if (fp == NULL) {
+                printf("'%s'\n", mode);
+                FElibc_error("Unable to create stream for file descriptor ~D",
+                             1, ecl_make_integer(fd));
+        }
 	ecl_enable_interrupts();
 	return ecl_make_stream_from_FILE(fname, fp, smm, byte_size, flags,
 					 external_format);