diff options
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/define.boot | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/interp/define.boot b/src/interp/define.boot index 07b81a4f..a765091d 100644 --- a/src/interp/define.boot +++ b/src/interp/define.boot @@ -43,6 +43,10 @@ $newCompCompare := false ++ List of mutable domains. $mutableDomains := nil +++ True if the current constructor being compiled instantiates +++ mutable domains or packages. Default is `false'. +$mutableDomain := false + ++ when non nil, holds the declaration number of a function in a capsule. $suffix := nil @@ -385,6 +389,7 @@ compDefineFunctor(df,m,e,prefix,fal) == $domainShell: local -- holds the category of the object being compiled $profileCompiler: local := true $profileAlist: local := nil + $mutableDomain: fluid := false $LISPLIB => compDefineLisplib(df,m,e,prefix,fal,'compDefineFunctor1) compDefineFunctor1(df,m,e,prefix,fal) |