From c19e54f03e3230811e6c86998568ce63ccbc42c9 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 24 Jul 2010 01:50:09 +0000
Subject: 	* interp/compiler.boot (compMatchAlternative): Don't generate 
 LET-expressions. 	* interp/g-opt.boot (optBind): Tidy.

---
 src/boot/strap/tokens.clisp | 1 +
 src/boot/tokens.boot        | 3 ++-
 2 files changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/boot')

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"] , _
-- 
cgit v1.2.3