aboutsummaryrefslogtreecommitdiff
path: root/src/boot
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2010-07-18 03:59:54 +0000
committerdos-reis <gdr@axiomatics.org>2010-07-18 03:59:54 +0000
commit6f895d0aed70b3a0ff95f19a5f3e4472c65bfd0d (patch)
treeb805dc5dc54812fe61efb039f15087a9d9b6c5be /src/boot
parent667ec69af3090bccd576e23e56a229168f8733b7 (diff)
downloadopen-axiom-6f895d0aed70b3a0ff95f19a5f3e4472c65bfd0d.tar.gz
More cleanups
Diffstat (limited to 'src/boot')
-rw-r--r--src/boot/strap/tokens.clisp1
-rw-r--r--src/boot/tokens.boot1
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", "+"] , _