From c3de181ce275c15467dff3265f83de58a76a6314 Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Mon, 2 May 2005 17:55:34 +0000
Subject: [PATCH] Binary headers are no longer used by default

---
 src/CHANGELOG | 3 +++
 src/c/file.d  | 2 +-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/CHANGELOG b/src/CHANGELOG
index 5abf67482..0bb46cecb 100644
--- a/src/CHANGELOG
+++ b/src/CHANGELOG
@@ -120,6 +120,9 @@ ECL 0.9f
    --with-system-{gmp,boehm} now take an optional argument which can be "auto",
    for automatic detection of the libraries (M. Pasternacki).
 
+ - By default, the size of binary streams is rounded to a multiple of 8. If you
+   want other behavior, pass :USE-HEADER-P T to the function OPEN.
+
 * ANSI Compatibility:
 
  - DEFSETF forms are enclosed in a block with the name of the accessor.
diff --git a/src/c/file.d b/src/c/file.d
index e630b26c4..3ff7b33af 100644
--- a/src/c/file.d
+++ b/src/c/file.d
@@ -2539,7 +2539,7 @@ normalize_stream_element_type(cl_object element_type)
 		   (if_exists Cnil iesp)
 		   (if_does_not_exist Cnil idnesp)
 	           (external_format @':default')
-		   (use_header_p Ct)
+		   (use_header_p Cnil)
 	      &aux strm)
 	enum ecl_smmode smm;
 	bool char_stream_p;