diff options
author | dos-reis <gdr@axiomatics.org> | 2010-07-18 03:59:54 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-07-18 03:59:54 +0000 |
commit | 6f895d0aed70b3a0ff95f19a5f3e4472c65bfd0d (patch) | |
tree | b805dc5dc54812fe61efb039f15087a9d9b6c5be /src/boot | |
parent | 667ec69af3090bccd576e23e56a229168f8733b7 (diff) | |
download | open-axiom-6f895d0aed70b3a0ff95f19a5f3e4472c65bfd0d.tar.gz |
More cleanups
Diffstat (limited to 'src/boot')
-rw-r--r-- | src/boot/strap/tokens.clisp | 1 | ||||
-rw-r--r-- | src/boot/tokens.boot | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/src/boot/strap/tokens.clisp b/src/boot/strap/tokens.clisp index 190955b9..c55ed69a 100644 --- a/src/boot/strap/tokens.clisp +++ b/src/boot/strap/tokens.clisp @@ -231,6 +231,7 @@ (LIST '|symbol?| 'SYMBOLP) (LIST '|take| 'TAKE) (LIST '|third| 'CADDR) (LIST '|true| 'T) (LIST '|upperCase?| 'UPPER-CASE-P) + (LIST '|vector?| 'SIMPLE-VECTOR-P) (LIST '|writeByte| 'WRITE-BYTE) (LIST '|writeLine| 'WRITE-LINE) (LIST 'PLUS '+) (LIST 'MINUS '-) (LIST 'TIMES '*) (LIST 'POWER 'EXPT) diff --git a/src/boot/tokens.boot b/src/boot/tokens.boot index 8001250a..c2b2f120 100644 --- a/src/boot/tokens.boot +++ b/src/boot/tokens.boot @@ -285,6 +285,7 @@ for i in [ _ ["third", "CADDR"] , _ ["true", "T"] , _ ["upperCase?", "UPPER-CASE-P"], _ + ["vector?", "SIMPLE-VECTOR-P"], _ ["writeByte", "WRITE-BYTE"], _ ["writeLine", "WRITE-LINE"], _ ["PLUS", "+"] , _ |