diff options
Diffstat (limited to 'src/boot')
-rw-r--r-- | src/boot/strap/tokens.clisp | 16 | ||||
-rw-r--r-- | src/boot/tokens.boot | 1 |
2 files changed, 10 insertions, 7 deletions
diff --git a/src/boot/strap/tokens.clisp b/src/boot/strap/tokens.clisp index e31ba528..7a5a473e 100644 --- a/src/boot/strap/tokens.clisp +++ b/src/boot/strap/tokens.clisp @@ -217,11 +217,12 @@ (LIST '|charString| 'STRING) (LIST '|char?| 'CHARACTERP) (LIST '|codePoint| 'CHAR-CODE) (LIST '|cons?| 'CONSP) - (LIST '|copy| 'COPY) (LIST '|croak| 'CROAK) - (LIST '|digit?| 'DIGIT-CHAR-P) (LIST '|drop| 'DROP) - (LIST '|exit| 'EXIT) (LIST '|false| 'NIL) - (LIST '|first| 'CAR) (LIST '|float?| 'FLOATP) - (LIST '|fourth| 'CADDDR) (LIST '|function| 'FUNCTION) + (LIST '|copy| 'COPY) (LIST '|copyTree| 'COPY-TREE) + (LIST '|croak| 'CROAK) (LIST '|digit?| 'DIGIT-CHAR-P) + (LIST '|drop| 'DROP) (LIST '|exit| 'EXIT) + (LIST '|false| 'NIL) (LIST '|first| 'CAR) + (LIST '|float?| 'FLOATP) (LIST '|fourth| 'CADDDR) + (LIST '|function| 'FUNCTION) (LIST '|function?| 'FUNCTIONP) (LIST '|gensym| 'GENSYM) (LIST '|genvar| 'GENVAR) (LIST '|integer?| 'INTEGERP) (LIST 'LAST '|last|) @@ -232,8 +233,9 @@ (LIST '|newString| 'MAKE-STRING) (LIST '|newVector| 'MAKE-ARRAY) (LIST '|nil| NIL) (LIST '|not| 'NOT) (LIST '|null| 'NULL) - (LIST '|or| 'OR) (LIST '|otherwise| 'T) - (LIST '|property| 'GET) (LIST '|readByte| 'READ-BYTE) + (LIST '|odd?| 'ODDP) (LIST '|or| 'OR) + (LIST '|otherwise| 'T) (LIST '|property| 'GET) + (LIST '|readByte| 'READ-BYTE) (LIST '|readInteger| 'PARSE-INTEGER) (LIST '|readLine| 'READ-LINE) (LIST '|readLispFromString| 'READ-FROM-STRING) diff --git a/src/boot/tokens.boot b/src/boot/tokens.boot index 2c1a810d..6a73af4c 100644 --- a/src/boot/tokens.boot +++ b/src/boot/tokens.boot @@ -288,6 +288,7 @@ for i in [ _ ["nil" ,NIL ] , _ ["not", "NOT"] , _ ["null", "NULL"] , _ + ["odd?", "ODDP"] , _ ["or", "OR"] , _ ["otherwise", "T"] , _ ["property", "GET"] , _ |