From 35ef2226d840fbc726f944afd053abd56fa0ee75 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Fri, 18 Apr 2008 20:27:14 +0000 Subject: * interp/define.boot ($mutableDomain): Define. (compDefineFunctor): Initialize it before compiling a functor. --- src/interp/define.boot | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'src/interp/define.boot') 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) -- cgit v1.2.3