diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-02-07 12:08:48 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-02-07 12:08:48 +0000 |
| commit | 3636c6e090a9720663d00f9df6b98e140cdb9eb2 (patch) | |
| tree | 853bc1d4d5e9eab5cecae57caaa6a255156414df /src/boot | |
| parent | c2b415b05a0e66689d75f9ed37239dff4c0685cd (diff) | |
| download | open-axiom-3636c6e090a9720663d00f9df6b98e140cdb9eb2.tar.gz | |
* boot/tokens.boot: arrayRef is now a builtin function.
Diffstat (limited to 'src/boot')
| -rw-r--r-- | src/boot/strap/tokens.clisp | 4 | ||||
| -rw-r--r-- | src/boot/tokens.boot | 1 |
2 files changed, 3 insertions, 2 deletions
diff --git a/src/boot/strap/tokens.clisp b/src/boot/strap/tokens.clisp index 3b5694f7..3a3ebc82 100644 --- a/src/boot/strap/tokens.clisp +++ b/src/boot/strap/tokens.clisp @@ -200,8 +200,8 @@ (LIST '|alphabetic?| 'ALPHA-CHAR-P) (LIST '|alphanumeric?| 'ALPHANUMERICP) (LIST '|and| 'AND) (LIST '|append| 'APPEND) - (LIST '|apply| 'APPLY) (LIST '|atom| 'ATOM) - (LIST '|bitmask| 'SBIT) + (LIST '|apply| 'APPLY) (LIST '|arrayRef| 'AREF) + (LIST '|atom| 'ATOM) (LIST '|bitmask| 'SBIT) (LIST '|canonicalFilename| 'PROBE-FILE) (LIST '|charString| 'STRING) (LIST '|char?| 'CHARACTERP) diff --git a/src/boot/tokens.boot b/src/boot/tokens.boot index dd46d89b..b3227954 100644 --- a/src/boot/tokens.boot +++ b/src/boot/tokens.boot @@ -245,6 +245,7 @@ for i in [ _ ["and", "AND"] , _ ["append", "APPEND"] , _ ["apply", "APPLY"] , _ + ["arrayRef", "AREF"] , _ ["atom", "ATOM"] , _ ["bitmask", "SBIT"] , _ ["canonicalFilename", "PROBE-FILE"], _ |