From 3cb1a587dfe4e2c84232aad18a4c695f8dabea96 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sat, 29 Oct 2011 15:24:15 +0000 Subject: * 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. --- src/boot/strap/tokens.clisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/boot/strap') 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) -- cgit v1.2.3