From e91a793052996b617288e933cc6bcaecf05da915 Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@users.sourceforge.net>
Date: Thu, 9 Feb 2012 23:03:22 +0100
Subject: [PATCH] Fixed use of FEtype_error_index

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

diff --git a/src/c/instance.d b/src/c/instance.d
index ae194661f..22d9ec5ee 100644
--- a/src/c/instance.d
+++ b/src/c/instance.d
@@ -14,8 +14,9 @@
     See file '../Copyright' for full details.
 */
 
-#include <ecl/ecl.h>
 #include <string.h>
+#include <ecl/ecl.h>
+#include <ecl/internal.h>
 
 cl_object
 ecl_allocate_instance(cl_object clas, cl_index size)
@@ -173,7 +174,7 @@ si_sl_makunbound(cl_object x, cl_object index)
 	if (ecl_unlikely(!FIXNUMP(index)))
 		FEwrong_type_nth_arg(@[si::sl-makunbound], 2, index, @[fixnum]);
 	i = fix(index);
-	if (ecl_unlikely((i >= x->instance.length || i < 0))
+	unlikely_if (i >= x->instance.length || i < 0)
 		FEtype_error_index(x, i);
 	x->instance.slots[i] = ECL_UNBOUND;
 	@(return x)