From f45e15f96705de222b41a726e25637ac08edfda2 Mon Sep 17 00:00:00 2001
From: goffioul <goffioul>
Date: Thu, 9 Jun 2005 11:36:32 +0000
Subject: [PATCH] Reorder format arguments correctly in FEtype_error_index().

---
 src/CHANGELOG    | 4 +++-
 src/c/typespec.d | 2 +-
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/CHANGELOG b/src/CHANGELOG
index 2f0399422..fd4742556 100644
--- a/src/CHANGELOG
+++ b/src/CHANGELOG
@@ -48,7 +48,9 @@ ECL 0.9g
  - The random number generator assumed 32-bit integers.
 
  - ext:run-program looks into *standard-input/output* and *error-output* for handle
-   duplicatio also under Win32.
+   duplication also under Win32.
+ 
+ - FEtype_error_index() had format arguments in wrong order (M. Goffioul).
 
 * ANSI compatibility:
 
diff --git a/src/c/typespec.d b/src/c/typespec.d
index 6c6b1954e..8cac49154 100644
--- a/src/c/typespec.d
+++ b/src/c/typespec.d
@@ -88,7 +88,7 @@ FEtype_error_index(cl_object seq, cl_object ndx)
 {
 	cl_error(9, @'simple-type-error', @':format-control',
 		    make_constant_string("~S is not a valid index into the object ~S"),
-		    @':format-arguments', cl_list(2, seq, ndx),
+		    @':format-arguments', cl_list(2, ndx, seq),
 		    @':expected-type', cl_list(3, @'integer', MAKE_FIXNUM(0), MAKE_FIXNUM(length(seq)-1)),
 		    @':datum', ndx);
 }