diff options
Diffstat (limited to 'src/boot')
| -rw-r--r-- | src/boot/strap/tokens.clisp | 11 | ||||
| -rw-r--r-- | src/boot/strap/translator.clisp | 2 | ||||
| -rw-r--r-- | src/boot/tokens.boot | 3 |
3 files changed, 10 insertions, 6 deletions
diff --git a/src/boot/strap/tokens.clisp b/src/boot/strap/tokens.clisp index ea0dabcf..ceecbce5 100644 --- a/src/boot/strap/tokens.clisp +++ b/src/boot/strap/tokens.clisp @@ -232,11 +232,12 @@ (SETQ |bfVar#1| (CDR |bfVar#1|)))) (LET ((|bfVar#1| - (LIST (LIST '|setName| 0) (LIST '|setLabel| 1) (LIST '|setLevel| 2) - (LIST '|setType| 3) (LIST '|setVar| 4) (LIST '|setLeaf| 5) - (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 (LIST '|absKind| 'CAR) (LIST '|absParms| 'CADR) + (LIST '|absBody| 'CADDR) (LIST '|setName| 0) (LIST '|setLabel| 1) + (LIST '|setLevel| 2) (LIST '|setType| 3) (LIST '|setVar| 4) + (LIST '|setLeaf| 5) (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) (LIST '|cacheReset| 'CADDDR) (LIST '|cacheType| 'CADDR) (LIST '|env| 'CADDR) (LIST '|expr| 'CAR) (LIST 'CAR 'CAR) diff --git a/src/boot/strap/translator.clisp b/src/boot/strap/translator.clisp index 2f87cc64..9abbe2ca 100644 --- a/src/boot/strap/translator.clisp +++ b/src/boot/strap/translator.clisp @@ -93,7 +93,7 @@ (|reallyPrettyPrint| (LIST 'PROCLAIM (|quote| (CONS 'OPTIMIZE |$LispOptimizeOptions|))) |stream|)) -(DEFUN |AxiomCore|::|%sysInit| () +(DEFUN |%sysInit| () (PROGN (SETQ *LOAD-VERBOSE* NIL) (COND diff --git a/src/boot/tokens.boot b/src/boot/tokens.boot index 663f1301..b45cb669 100644 --- a/src/boot/tokens.boot +++ b/src/boot/tokens.boot @@ -340,6 +340,9 @@ for i in [ _ for i in [ _ + ["absKind", "CAR"] ,_ + ["absParms", "CADR"] ,_ + ["absBody", "CADDR"] ,_ ["setName", 0] , _ ["setLabel", 1] , _ ["setLevel", 2] , _ |