diff options
| author | dos-reis <gdr@axiomatics.org> | 2012-05-21 02:45:26 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2012-05-21 02:45:26 +0000 |
| commit | 8d26a86a2ce79743aecfb2fccccf3486525b8426 (patch) | |
| tree | 8cfe2b1f5a9ed9326ded31f0ae215790361806cc /src/interp/c-util.boot | |
| parent | a2d6a4d6c6355aca142008543cc78e4139d97576 (diff) | |
| download | open-axiom-8d26a86a2ce79743aecfb2fccccf3486525b8426.tar.gz | |
* interp/vmlisp.lisp (SETANDFILE): Remove.
(LAM,EVALANDFILEACTQ): Likewise.
* interp/sys-utility.boot (PRINT-AND-EVAL-DEFUN): Likewise.
* interp/slam.boot (reportFunctionCompilation): Tidy.
* interp/lisp-backend.boot (evalAndPrintBackendDecl): New.
* interp/c-util.boot (backendCompileSPADSLAM): Use it in lieu of
SETANDFILE.
(compAndDefine): Use evalAndPrintBackendDecl in lieu of
PRINT-AND-EVAL-DEFUN.
* interp/hypertex.boot: Clean up.
* interp/nhyper.boot: Likewise.
* interp/word.boot: Likewise.
Diffstat (limited to 'src/interp/c-util.boot')
| -rw-r--r-- | src/interp/c-util.boot | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot index 404bbe9a..b8ec4c5f 100644 --- a/src/interp/c-util.boot +++ b/src/interp/c-util.boot @@ -1535,7 +1535,8 @@ backendCompileSPADSLAM(name,args,body) == [true, ["PROGN",["SETQ",g2,app], ["SETQ",al,["cons5",["CONS",key,g2],al]],g2]]]] - SETANDFILE(al,nil) -- define the global cache. + -- define the global cache. + evalAndPrintBackendDecl(al,['DEFPARAMETER,al,nil]) assembleCode [auxfn,["LAMBDA",args,:body]] assembleCode [name,["LAMBDA",args,code]] @@ -1755,7 +1756,7 @@ compileFileQuietly path == ++ Subroutine of compileConstructor1. Called to compile the body ++ of a category constructor definition. compAndDefine l == - _*COMP370_-APPLY_* := "PRINT-AND-EVAL-DEFUN" + _*COMP370_-APPLY_* := function evalAndPrintBackendDecl backendCompile l $compileDontDefineFunctions := true |