From 6f895d0aed70b3a0ff95f19a5f3e4472c65bfd0d Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sun, 18 Jul 2010 03:59:54 +0000 Subject: More cleanups --- src/boot/strap/tokens.clisp | 1 + src/boot/tokens.boot | 1 + 2 files changed, 2 insertions(+) (limited to 'src/boot') 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", "+"] , _ -- cgit v1.2.3