diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-10-05 12:38:09 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-10-05 12:38:09 +0000 |
| commit | da334a99fa9e66215133f4cf5fe87a3b78d7084e (patch) | |
| tree | 27af1107fd5d2ce3366260aa93f66a1531bdd342 /src/boot | |
| parent | 90abde087099b60884295a2d61f2950836890c81 (diff) | |
| download | open-axiom-da334a99fa9e66215133f4cf5fe87a3b78d7084e.tar.gz | |
* lisp/core.lisp.in (eof?): New.
(listToString): Likewise.
(formatToString): Likewise.
* boot/tokens.boot: Add fifth as builtin library function.
Diffstat (limited to 'src/boot')
| -rw-r--r-- | src/boot/strap/tokens.clisp | 13 | ||||
| -rw-r--r-- | src/boot/tokens.boot | 1 |
2 files changed, 8 insertions, 6 deletions
diff --git a/src/boot/strap/tokens.clisp b/src/boot/strap/tokens.clisp index ba4e28a2..fac4526d 100644 --- a/src/boot/strap/tokens.clisp +++ b/src/boot/strap/tokens.clisp @@ -185,12 +185,13 @@ (LIST '|copyString| 'COPY-SEQ) (LIST '|copyTree| 'COPY-TREE) (LIST '|copyVector| 'COPY-SEQ) (LIST '|croak| 'CROAK) (LIST '|digit?| 'DIGIT-CHAR-P) (LIST '|drop| 'DROP) - (LIST '|exit| 'EXIT) (LIST '|false| 'NIL) (LIST '|first| 'CAR) - (LIST '|float?| 'FLOATP) (LIST '|flushOutput| 'FORCE-OUTPUT) - (LIST '|fourth| 'CADDDR) (LIST '|function| 'FUNCTION) - (LIST '|function?| 'FUNCTIONP) (LIST '|gensym| 'GENSYM) - (LIST '|genvar| 'GENVAR) (LIST '|integer?| 'INTEGERP) - (LIST 'LAST '|last|) (LIST '|list| 'LIST) (LIST '|listEq?| 'EQUAL) + (LIST '|exit| 'EXIT) (LIST '|false| 'NIL) (LIST '|fifth| 'FIFTH) + (LIST '|first| 'CAR) (LIST '|float?| 'FLOATP) + (LIST '|flushOutput| 'FORCE-OUTPUT) (LIST '|fourth| 'CADDDR) + (LIST '|function| 'FUNCTION) (LIST '|function?| 'FUNCTIONP) + (LIST '|gensym| 'GENSYM) (LIST '|genvar| 'GENVAR) + (LIST '|integer?| 'INTEGERP) (LIST 'LAST '|last|) + (LIST '|list| 'LIST) (LIST '|listEq?| 'EQUAL) (LIST '|lowerCase?| 'LOWER-CASE-P) (LIST '|makeSymbol| 'INTERN) (LIST '|maxIndex| 'MAXINDEX) (LIST '|mkpf| 'MKPF) (LIST '|newString| 'MAKE-STRING) (LIST '|newVector| 'MAKE-ARRAY) diff --git a/src/boot/tokens.boot b/src/boot/tokens.boot index 14abfeec..56e1b051 100644 --- a/src/boot/tokens.boot +++ b/src/boot/tokens.boot @@ -260,6 +260,7 @@ for i in [ _ ["drop", "DROP"] , _ ["exit", "EXIT"] , _ ["false", 'NIL] , _ + ["fifth", "FIFTH"] , _ ["first", "CAR"] , _ ["float?", "FLOATP"] , _ ["flushOutput", "FORCE-OUTPUT"], _ |