diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-04-17 16:55:39 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-04-17 16:55:39 +0000 |
| commit | 1642c3f8ce94264813f4d7ac79f24f16f5fb7ded (patch) | |
| tree | 9ad1840c79408767e5cac07c3c111f67928328f7 /src/boot | |
| parent | f7ba5aa3dec20e2371ff9be8c7a9973a3a08cba8 (diff) | |
| download | open-axiom-1642c3f8ce94264813f4d7ac79f24f16f5fb7ded.tar.gz | |
* boot/tokens.boot: Translate maxIndex to MAXINDEX.
Diffstat (limited to 'src/boot')
| -rw-r--r-- | src/boot/strap/tokens.clisp | 3 | ||||
| -rw-r--r-- | src/boot/tokens.boot | 1 |
2 files changed, 3 insertions, 1 deletions
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"], _ |