aboutsummaryrefslogtreecommitdiff
path: root/src/boot/strap
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2010-07-24 01:50:09 +0000
committerdos-reis <gdr@axiomatics.org>2010-07-24 01:50:09 +0000
commitc19e54f03e3230811e6c86998568ce63ccbc42c9 (patch)
treeea96f5e883e0aa28215c397677fcd213b10d6735 /src/boot/strap
parent3a373a0b802ee86308db78cba8696aa7b6cdf4df (diff)
downloadopen-axiom-c19e54f03e3230811e6c86998568ce63ccbc42c9.tar.gz
* interp/compiler.boot (compMatchAlternative): Don't generate
LET-expressions. * interp/g-opt.boot (optBind): Tidy.
Diffstat (limited to 'src/boot/strap')
-rw-r--r--src/boot/strap/tokens.clisp1
1 files changed, 1 insertions, 0 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)