From ddcad96e9a200379a0f9120b7d10531945e6e234 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Fri, 12 Dec 2008 20:11:41 +0000 Subject: r12452@gauss: gdr | 2008-12-12 09:04:43 -0600 Add some documentation. --- src/interp/c-util.boot | 3 +++ src/interp/define.boot | 9 +++++++-- 2 files changed, 10 insertions(+), 2 deletions(-) (limited to 'src') 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) -- cgit v1.2.3