diff options
author | dos-reis <gdr@axiomatics.org> | 2010-07-24 01:50:09 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-07-24 01:50:09 +0000 |
commit | c19e54f03e3230811e6c86998568ce63ccbc42c9 (patch) | |
tree | ea96f5e883e0aa28215c397677fcd213b10d6735 /src/boot | |
parent | 3a373a0b802ee86308db78cba8696aa7b6cdf4df (diff) | |
download | open-axiom-c19e54f03e3230811e6c86998568ce63ccbc42c9.tar.gz |
* interp/compiler.boot (compMatchAlternative): Don't generate
LET-expressions.
* interp/g-opt.boot (optBind): Tidy.
Diffstat (limited to 'src/boot')
-rw-r--r-- | src/boot/strap/tokens.clisp | 1 | ||||
-rw-r--r-- | src/boot/tokens.boot | 3 |
2 files changed, 3 insertions, 1 deletions
diff --git a/src/boot/strap/tokens.clisp b/src/boot/strap/tokens.clisp index 5b02904d..94923a97 100644 --- a/src/boot/strap/tokens.clisp +++ b/src/boot/strap/tokens.clisp @@ -229,6 +229,7 @@ (LIST '|setPart| 'SETELT) (LIST '|setUnion| 'UNION) (LIST '|strconc| 'CONCAT) (LIST '|string?| 'STRINGP) (LIST '|substitute| 'SUBST) + (LIST '|substitute!| 'NSUBST) (LIST '|symbol?| 'SYMBOLP) (LIST '|take| 'TAKE) (LIST '|third| 'CADDR) (LIST '|true| 'T) (LIST '|upperCase?| 'UPPER-CASE-P) diff --git a/src/boot/tokens.boot b/src/boot/tokens.boot index e5160acd..1424c6cd 100644 --- a/src/boot/tokens.boot +++ b/src/boot/tokens.boot @@ -280,7 +280,8 @@ for i in [ _ ["setUnion", "UNION"] , _ ["strconc", "CONCAT"] , _ ["string?", "STRINGP"] ,_ - ["substitute", "SUBST"] , _ + ["substitute", "SUBST"] , _ + ["substitute!", "NSUBST"] , _ ["symbol?", "SYMBOLP"] , _ ["take", "TAKE"] , ["third", "CADDR"] , _ |