From ae4766c079b7cc861fa44ff65a54e5cf2f0f120f Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Fri, 25 Jul 2008 15:40:28 +0000
Subject: [PATCH] When using long double, use no specialized arrays for
 LONG-FLOAT

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

diff --git a/src/c/array.d b/src/c/array.d
index 2e10290d2..0bb0cece3 100644
--- a/src/c/array.d
+++ b/src/c/array.d
@@ -529,9 +529,15 @@ ecl_symbol_to_elttype(cl_object x)
 		return(aet_index);
 	else if (x == @'single-float' || x == @'short-float')
 		return(aet_sf);
-	else if (x == @'long-float' || x == @'double-float')
+	else if (x == @'double-float')
 		return(aet_df);
-	else if (x == @'ext::byte8')
+	else if (x == @'long-float') {
+#ifdef ECL_LONG_FLOAT
+		return(aet_object);
+#else
+		return(aet_df);
+#endif
+	} else if (x == @'ext::byte8')
 		return(aet_b8);
 	else if (x == @'ext::integer8')
 		return(aet_i8);