From a886a6f8ac9b0bfd65611631875a119693f6c84a Mon Sep 17 00:00:00 2001 From: dos-reis Date: Tue, 22 Feb 2011 20:06:03 +0000 Subject: * 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. --- src/boot/strap/tokens.clisp | 1 + src/boot/tokens.boot | 1 + 2 files changed, 2 insertions(+) (limited to 'src/boot') 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"] , _ -- cgit v1.2.3