diff options
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"], _ |