diff options
| -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) |