diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-05-28 04:51:23 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-05-28 04:51:23 +0000 |
| commit | af089a02e32f424463e93e147b60222de0839f1e (patch) | |
| tree | 221f73b1617d8246c1ca26d3a8ea38f5beac25ab /src/boot | |
| parent | 17a1e0707ae07bd90ef6a9fafb2432027507bbf2 (diff) | |
| download | open-axiom-af089a02e32f424463e93e147b60222de0839f1e.tar.gz | |
* boot/tokens.boot: args is now a selector.
* interp/g-timer.boot: Use integer? in lieu of INTP.
* interp/i-syscmd.boot: Likewise.
* interp/msgdb.boot: Likewise.
Diffstat (limited to 'src/boot')
| -rw-r--r-- | src/boot/strap/tokens.clisp | 1 | ||||
| -rw-r--r-- | src/boot/tokens.boot | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/src/boot/strap/tokens.clisp b/src/boot/strap/tokens.clisp index 43f54797..c3c5105b 100644 --- a/src/boot/strap/tokens.clisp +++ b/src/boot/strap/tokens.clisp @@ -251,6 +251,7 @@ (LIST '|setDef| 6) (LIST '|aGeneral| 4) (LIST '|aMode| 1) (LIST '|aModeSet| 3) (LIST '|aTree| 0) (LIST '|aValue| 2) + (LIST '|args| 'CDR) (LIST '|attributes| 'CADDR) (LIST '|cacheCount| 'CADDDDR) (LIST '|cacheName| 'CADR) diff --git a/src/boot/tokens.boot b/src/boot/tokens.boot index 0c6e8818..6fe50a64 100644 --- a/src/boot/tokens.boot +++ b/src/boot/tokens.boot @@ -314,6 +314,7 @@ for i in [ _ ["aModeSet", 3] , _ ["aTree", 0] , _ ["aValue", 2] , _ + ["args", "CDR"] , _ ["attributes", "CADDR"] , _ ["cacheCount", "CADDDDR"] , _ ["cacheName", "CADR"] , _ |