aboutsummaryrefslogtreecommitdiff
path: root/src/boot
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2011-02-22 20:06:03 +0000
committerdos-reis <gdr@axiomatics.org>2011-02-22 20:06:03 +0000
commita886a6f8ac9b0bfd65611631875a119693f6c84a (patch)
treef831563f180ae375afafcba9e355afd29ba57eda /src/boot
parent063103a398ab7b1fdef378a2128fa1c9da2f070e (diff)
downloadopen-axiom-a886a6f8ac9b0bfd65611631875a119693f6c84a.tar.gz
* boot/tokens.boot: mmSource is a new selector for modemap datatype.
* interp/wi1.boot: Likewise. * interp/br-data.boot: Various cleanups. * interp/c-util.boot: Likewise. * interp/compiler.boot: Likewise. * interp/functor.boot: Likewise. * interp/g-util.boot: Likewise. * interp/guess.boot: Likewise. * interp/i-util.boot: Likewise. * interp/mark.boot: Likewise. * interp/msgdb.boot: Likewise. * interp/topics.boot: Likewise.
Diffstat (limited to 'src/boot')
-rw-r--r--src/boot/strap/tokens.clisp1
-rw-r--r--src/boot/tokens.boot1
2 files changed, 2 insertions, 0 deletions
diff --git a/src/boot/strap/tokens.clisp b/src/boot/strap/tokens.clisp
index 3a3ebc82..013f5e2b 100644
--- a/src/boot/strap/tokens.clisp
+++ b/src/boot/strap/tokens.clisp
@@ -279,6 +279,7 @@
(LIST '|mmImplementation| 'CADADR)
(LIST '|mmSignature| 'CDAR)
(LIST '|mmTarget| 'CADAR)
+ (LIST '|mmSource| 'CDDAR)
(LIST '|mode| 'CADR) (LIST '|op| 'CAR)
(LIST '|opcode| 'CADR) (LIST '|opSig| 'CADR)
(LIST 'CDR 'CDR) (LIST '|sig| 'CDDR)
diff --git a/src/boot/tokens.boot b/src/boot/tokens.boot
index b3227954..26b59767 100644
--- a/src/boot/tokens.boot
+++ b/src/boot/tokens.boot
@@ -356,6 +356,7 @@ for i in [ _
["mmImplementation","CADADR"] , _
["mmSignature", "CDAR"] , _
["mmTarget", "CADAR"] , _
+ ["mmSource", "CDDAR"] , _
["mode", "CADR"] , _
["op", "CAR"] , _
["opcode", "CADR"] , _