diff options
author | dos-reis <gdr@axiomatics.org> | 2011-04-20 23:31:24 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-04-20 23:31:24 +0000 |
commit | 1ca37b944b566ef3f0479d4c2fe6895e9fbd3785 (patch) | |
tree | e4d75111b770366bac08174a5bf47f4bdaaee1eb /src/boot/strap/tokens.clisp | |
parent | 1e67a3445ddda759c38b455494350ed00390d73f (diff) | |
download | open-axiom-1ca37b944b566ef3f0479d4c2fe6895e9fbd3785.tar.gz |
* interp/sys-utility.boot (substitute): Define.
(substitute!): Likewise.
* boot/utility.boot: Do not rely on tail recursion removal.
* boot/tokens.boot: Don't translate substitute and substitute!.
* boot/ast.boot (bfLp1): Tidy.
Diffstat (limited to 'src/boot/strap/tokens.clisp')
-rw-r--r-- | src/boot/strap/tokens.clisp | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/boot/strap/tokens.clisp b/src/boot/strap/tokens.clisp index 7a032a5f..7ec5fb63 100644 --- a/src/boot/strap/tokens.clisp +++ b/src/boot/strap/tokens.clisp @@ -248,9 +248,7 @@ (LIST '|string?| 'STRINGP) (LIST '|stringEq?| 'STRING=) (LIST '|stringUpcase| 'STRING-UPCASE) - (LIST '|subSequence| 'SUBSEQ) - (LIST '|substitute| 'SUBST) - (LIST '|substitute!| 'NSUBST) (LIST '|symbolEq?| 'EQ) + (LIST '|subSequence| 'SUBSEQ) (LIST '|symbolEq?| 'EQ) (LIST '|symbolFunction| 'SYMBOL-FUNCTION) (LIST '|symbolName| 'SYMBOL-NAME) (LIST '|symbolValue| 'SYMBOL-VALUE) |