diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-02-02 13:26:26 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-02-02 13:26:26 +0000 |
| commit | c78c9f3c403b2154127f16dec9b1c95879601f5e (patch) | |
| tree | cfcffb66952748900ebbd9429d02d7e97b41cb91 /src/interp/define.boot | |
| parent | c2639522f9f219295e0243a3af98b6082a597b3c (diff) | |
| download | open-axiom-c78c9f3c403b2154127f16dec9b1c95879601f5e.tar.gz | |
* interp/setq.lisp: Remove more unused variables.
* interp/nruncomp.boot ($Slot1DataBase): Define here.
* interp/parse.boot ($oldParserExpandAbbrs): Likewise.
* interp/define.boot ($mutableDomains): Define here.
(compDefineFunctor1): Tidy.
(clearCmdCompletely): Don't set $functionTable.
Diffstat (limited to 'src/interp/define.boot')
| -rw-r--r-- | src/interp/define.boot | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/interp/define.boot b/src/interp/define.boot index 0192427e..92f15d99 100644 --- a/src/interp/define.boot +++ b/src/interp/define.boot @@ -40,6 +40,8 @@ import '"category" NRTPARSE := false $newCompCompare := false +++ List of mutable domains. +$mutableDomains := nil --% FUNCTIONS WHICH MUNCH ON == STATEMENTS @@ -401,9 +403,8 @@ compDefineFunctor1(df is ['DEF,form,signature,$functorSpecialCases,body], $pairlis := [[a,:v] for a in argl for v in $FormalMapVariableList] $mutableDomain: local := -- all defaulting packages should have caching turned off - isCategoryPackageName $op or - (if BOUNDP '$mutableDomains then MEMQ($op,$mutableDomains) - else false ) --true if domain has mutable state + isCategoryPackageName $op or MEMQ($op,$mutableDomains) + --true if domain has mutable state signature':= [first signature,:[getArgumentModeOrMoan(a,form,$e) for a in argl]] $functorForm:= $form:= [$op,:argl] |