diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-10-29 15:24:15 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-10-29 15:24:15 +0000 |
| commit | 3cb1a587dfe4e2c84232aad18a4c695f8dabea96 (patch) | |
| tree | d2279623a74d523217ec5db35760bef723f69a5c /src/boot/strap/tokens.clisp | |
| parent | 802ce3f7635ad4370303a959f7623509fded8528 (diff) | |
| download | open-axiom-3cb1a587dfe4e2c84232aad18a4c695f8dabea96.tar.gz | |
* interp/lisplib.boot (makePredicateBitVector): Take a DB argument.
Set dbPredicates.
(compConLib1): Set dbPredicates to nil.
(compDefineLisplib): Likewise.
(finalizeLisplib): Write dbPredicates.
* boot/tokens.boot (copyTree): Do not translate.
* boot/utility.boot (topyTree): Implement. Export.
Diffstat (limited to 'src/boot/strap/tokens.clisp')
| -rw-r--r-- | src/boot/strap/tokens.clisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/boot/strap/tokens.clisp b/src/boot/strap/tokens.clisp index 02bf998e..4696f676 100644 --- a/src/boot/strap/tokens.clisp +++ b/src/boot/strap/tokens.clisp @@ -182,7 +182,7 @@ (LIST '|charUpcase| 'CHAR-UPCASE) (LIST '|charString| 'STRING) (LIST '|char?| 'CHARACTERP) (LIST '|codePoint| 'CHAR-CODE) (LIST '|cons?| 'CONSP) (LIST '|copy| 'COPY) - (LIST '|copyString| 'COPY-SEQ) (LIST '|copyTree| 'COPY-TREE) + (LIST '|copyString| 'COPY-SEQ) (LIST '|copyVector| 'COPY-SEQ) (LIST '|croak| 'CROAK) (LIST '|digit?| 'DIGIT-CHAR-P) (LIST '|drop| 'DROP) (LIST '|exit| 'EXIT) (LIST '|false| 'NIL) (LIST '|fifth| 'FIFTH) |