From 1642c3f8ce94264813f4d7ac79f24f16f5fb7ded Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 17 Apr 2011 16:55:39 +0000
Subject: 	* boot/tokens.boot: Translate maxIndex to MAXINDEX.

---
 src/boot/strap/tokens.clisp | 3 ++-
 src/boot/tokens.boot        | 1 +
 2 files changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/boot')

diff --git a/src/boot/strap/tokens.clisp b/src/boot/strap/tokens.clisp
index 6d251628..ef543a5b 100644
--- a/src/boot/strap/tokens.clisp
+++ b/src/boot/strap/tokens.clisp
@@ -219,7 +219,8 @@
                   (LIST '|integer?| 'INTEGERP) (LIST '|lastNode| 'LAST)
                   (LIST 'LAST '|last|) (LIST '|list| 'LIST)
                   (LIST '|lowerCase?| 'LOWER-CASE-P)
-                  (LIST '|makeSymbol| 'INTERN) (LIST '|mkpf| 'MKPF)
+                  (LIST '|makeSymbol| 'INTERN)
+                  (LIST '|maxIndex| 'MAXINDEX) (LIST '|mkpf| 'MKPF)
                   (LIST '|nconc| 'NCONC)
                   (LIST '|newString| 'MAKE-STRING)
                   (LIST '|newVector| 'MAKE-ARRAY) (LIST '|nil| NIL)
diff --git a/src/boot/tokens.boot b/src/boot/tokens.boot
index 307da560..e01e8d6d 100644
--- a/src/boot/tokens.boot
+++ b/src/boot/tokens.boot
@@ -274,6 +274,7 @@ for i in [ _
   ["list",        "LIST"]  , _
   ["lowerCase?", "LOWER-CASE-P"], _
   ["makeSymbol", "INTERN"] , _
+  ["maxIndex", "MAXINDEX"] , _
   ["mkpf",        "MKPF"]  , _
   ["nconc",      "NCONC"]  , _
   ["newString", "MAKE-STRING"], _
-- 
cgit v1.2.3