diff options
author | dos-reis <gdr@axiomatics.org> | 2011-11-29 19:19:54 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-11-29 19:19:54 +0000 |
commit | 63df59e7ab921baff00e47e915b4df1c441b2381 (patch) | |
tree | 8c9905242ddb37483821c772a381d17fb7f8dfdd /src/boot/strap | |
parent | 53e9355c2e91561b71c89a0b79eb3f3d2645b02f (diff) | |
download | open-axiom-63df59e7ab921baff00e47e915b4df1c441b2381.tar.gz |
* boot/tokens.boot (absKind, absParms, absBody): New selectors.
* interp/compiler.boot (canReturn): Handle %lambda forms.
(compUnnamedMapping): Generate %lambda forms. Don't optimize them
yet.
* interp/g-opt.boot: %lambda forms are side-effect free.
* interp/lisp-backend.boot: Translate them.
Diffstat (limited to 'src/boot/strap')
-rw-r--r-- | src/boot/strap/tokens.clisp | 11 | ||||
-rw-r--r-- | src/boot/strap/translator.clisp | 2 |
2 files changed, 7 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 |