From 8a3c9cea2ca5d568df2f2f0554593b8fac7427ba Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@jjgr-2.local>
Date: Fri, 3 Jul 2009 09:35:35 +0200
Subject: [PATCH] Remove the call to ecl_array_elttype() in ecl_aset_unsafe

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

diff --git a/src/c/array.d b/src/c/array.d
index 80350a6f2..737c1060d 100644
--- a/src/c/array.d
+++ b/src/c/array.d
@@ -247,7 +247,7 @@ ecl_aref1(cl_object v, cl_index index)
 cl_object
 ecl_aset_unsafe(cl_object x, cl_index index, cl_object value)
 {
-	switch (ecl_array_elttype(x)) {
+	switch (x->array.elttype) {
 	case aet_object:
 		x->array.self.t[index] = value;
 		break;
@@ -261,7 +261,7 @@ ecl_aset_unsafe(cl_object x, cl_index index, cl_object value)
 		break;
 #endif
 	case aet_bit: {
-		cl_fixnum i = ecl_fixnum_in_range(@'si::aset',"bit",value,0,1);
+		cl_fixnum i = ecl_fixnum_in_range(Cnil,"ASET value",value,0,1);
 		index += x->vector.offset;
 		if (i == 0)
 			x->vector.self.bit[index/CHAR_BIT] &= ~(0200>>index%CHAR_BIT);