diff options
Diffstat (limited to 'src/boot/strap')
| -rw-r--r-- | src/boot/strap/tokens.clisp | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/src/boot/strap/tokens.clisp b/src/boot/strap/tokens.clisp index 703b4263..49017e4f 100644 --- a/src/boot/strap/tokens.clisp +++ b/src/boot/strap/tokens.clisp @@ -211,11 +211,12 @@ (LIST '|charString| 'STRING) (LIST '|char?| 'CHARACTERP) (LIST '|codePoint| 'CHAR-CODE) (LIST '|cons?| 'CONSP) - (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 '|copy| 'COPY) (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) @@ -257,6 +258,7 @@ (LIST '|vectorRef| 'SVREF) (LIST '|writeByte| 'WRITE-BYTE) (LIST '|writeChar| 'WRITE-CHAR) + (LIST '|writeInteger| 'PRINC) (LIST '|writeLine| 'WRITE-LINE) (LIST '|writeNewline| 'TERPRI) (LIST '|writeString| 'WRITE-STRING) (LIST 'PLUS '+) |