diff options
author | dos-reis <gdr@axiomatics.org> | 2008-12-12 20:11:41 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-12-12 20:11:41 +0000 |
commit | ddcad96e9a200379a0f9120b7d10531945e6e234 (patch) | |
tree | 982fd9a8a164c0de857c8acb4af1a972d3cd8548 | |
parent | a1e1873a557b7c44dc6593618eb9fae8849347d0 (diff) | |
download | open-axiom-ddcad96e9a200379a0f9120b7d10531945e6e234.tar.gz |
r12452@gauss: gdr | 2008-12-12 09:04:43 -0600
Add some documentation.
-rw-r--r-- | src/interp/c-util.boot | 3 | ||||
-rw-r--r-- | src/interp/define.boot | 9 |
2 files changed, 10 insertions, 2 deletions
diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot index 1298963d..32ef603c 100644 --- a/src/interp/c-util.boot +++ b/src/interp/c-util.boot @@ -1357,10 +1357,13 @@ backendCompile l == compileFileQuietly path == quietlyIfInteractive COMPILE_-FILE path +++ Subroutine of compileConstructor1. Called to compile the body +++ of a category constructor definition. compAndDefine l == _*COMP370_-APPLY_* := "PRINT-AND-EVAL-DEFUN" backendCompile l +++ Subroutine of compileInteractive. compQuietly fn == _*COMP370_-APPLY_* := $InteractiveMode => diff --git a/src/interp/define.boot b/src/interp/define.boot index 6225e63b..2ebbac4e 100644 --- a/src/interp/define.boot +++ b/src/interp/define.boot @@ -717,7 +717,9 @@ compDefineFunctor1(df is ['DEF,form,signature,$functorSpecialCases,body], evalAndRwriteLispForm('NILADIC, ['MAKEPROP, ['QUOTE,op'], ['QUOTE,'NILADIC], true]) [fun,['Mapping,:signature'],originale] - + +++ Subroutine of compDefineFunctor1. Called to generate backend code +++ for a functor definition. compFunctorBody(body,m,e,parForm) == $bootStrapMode = true => [bootStrapError($functorForm, _/EDITFILE),m,e] @@ -1288,7 +1290,10 @@ compile u == $functionStats:= addStats($functionStats,functionStats) printStats functionStats result - + +++ Subroutine of compile. Called to generate backend code for +++ items defined directly or indirectly at capsule level. This is +++ also used to compile functors. spadCompileOrSetq (form is [nam,[lam,vl,body]]) == --bizarre hack to take account of the existence of "known" functions --good for performance (LISPLLIB size, BPI size, NILSEC) |