From 83d3be00ead4e87189ec8aa662a53759bd37efec Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Thu, 29 May 2008 06:45:53 +0000
Subject: [PATCH] Call upgraded-array-element-type directly instead of using
 cl_funcall.

---
 src/c/array.d | 2 +-
 src/c/cinit.d | 6 ++++++
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/src/c/array.d b/src/c/array.d
index ec32db147..2e10290d2 100644
--- a/src/c/array.d
+++ b/src/c/array.d
@@ -540,7 +540,7 @@ ecl_symbol_to_elttype(cl_object x)
 	else if (x == Cnil) {
 		FEerror("ECL does not support arrays with element type NIL", 0);
 	}
-	x = cl_funcall(2, @'upgraded-array-element-type', x);
+	x = cl_upgraded_array_element_type(1, x);
 	goto BEGIN;
 }
 
diff --git a/src/c/cinit.d b/src/c/cinit.d
index 5696c625a..0bd6153d4 100644
--- a/src/c/cinit.d
+++ b/src/c/cinit.d
@@ -28,6 +28,12 @@
  * called instead.
  */
 
+extern cl_object
+cl_upgraded_array_element_type(cl_narg narg, cl_object type, ...)
+{
+	return cl_funcall(2, @'upgraded-array-element-type', type);
+}
+
 extern cl_object
 si_safe_eval(cl_narg arg, cl_object form, cl_object env, cl_object error_value, ...)
 {