diff options
Diffstat (limited to 'src/interp/br-data.boot')
-rw-r--r-- | src/interp/br-data.boot | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/interp/br-data.boot b/src/interp/br-data.boot index 5d892800..1fe1de2b 100644 --- a/src/interp/br-data.boot +++ b/src/interp/br-data.boot @@ -512,8 +512,11 @@ getParentsFor(cname,formalParams,constructorCategory) == acc := [:explodeIfs x,:acc] NREVERSE acc +$parentsCache := nil + parentsOf con == --called by kcpPage, ancestorsRecur - if null BOUNDP '$parentsCache then SETQ($parentsCache,MAKE_-HASHTABLE 'ID) + if null $parentsCache then + $parentsCache := MAKE_-HASHTABLE 'ID HGET($parentsCache,con) or parents := getParentsForDomain con HPUT($parentsCache,con,parents) |