aboutsummaryrefslogtreecommitdiff
path: root/src/boot/strap
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2011-10-29 15:24:15 +0000
committerdos-reis <gdr@axiomatics.org>2011-10-29 15:24:15 +0000
commit3cb1a587dfe4e2c84232aad18a4c695f8dabea96 (patch)
treed2279623a74d523217ec5db35760bef723f69a5c /src/boot/strap
parent802ce3f7635ad4370303a959f7623509fded8528 (diff)
downloadopen-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')
-rw-r--r--src/boot/strap/tokens.clisp2
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)