diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-04-12 17:18:32 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-04-12 17:18:32 +0000 |
| commit | 3c748c0ab1f5119528ae3ae41cc144371b1b375c (patch) | |
| tree | ca305a2290cc49f30064d0f5e17a8301fd83c614 /src/interp/lisplib.boot | |
| parent | c65ac216959772cd6955c9dc050b98d38d7492da (diff) | |
| download | open-axiom-3c748c0ab1f5119528ae3ae41cc144371b1b375c.tar.gz | |
* interp/ax.boot: Use getConstructorModemap throughout.
* interp/br-data.boot: Likewise.
* interp/br-op1.boot: Likewise.
* interp/br-prof.boot: Likewise.
* interp/br-search.boot: Likewise.
* interp/br-util.boot: Likewise.
* interp/cattable.boot: Likewise.
* interp/daase.lisp: Likewise.
* interp/g-util.boot: Likewise.
* interp/lisplib.boot: Likewise.
* interp/nrunopt.boot: Likewise.
Diffstat (limited to 'src/interp/lisplib.boot')
| -rw-r--r-- | src/interp/lisplib.boot | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/src/interp/lisplib.boot b/src/interp/lisplib.boot index 5c5f50df..47501659 100644 --- a/src/interp/lisplib.boot +++ b/src/interp/lisplib.boot @@ -161,7 +161,7 @@ loadLib cname == clearConstructorCache cname updateDatabase(cname,cname,systemdir?) installConstructor(cname,kind) - u := GETDATABASE(cname, 'CONSTRUCTORMODEMAP) + u := getConstructorModemap cname updateCategoryTable(cname,kind) coSig := u => @@ -227,14 +227,14 @@ convertOpAlist2compilerInfo(opalist) == updateCategoryFrameForConstructor(constructor) == opAlist := GETDATABASE(constructor, 'OPERATIONALIST) - [[dc,:sig],[pred,impl]] := GETDATABASE(constructor, 'CONSTRUCTORMODEMAP) + [[dc,:sig],[pred,impl]] := getConstructorModemap constructor $CategoryFrame := put(constructor,'isFunctor, convertOpAlist2compilerInfo(opAlist), addModemap(constructor, dc, sig, pred, impl, put(constructor, 'mode, ['Mapping,:sig], $CategoryFrame))) updateCategoryFrameForCategory(category) == - [[dc,:sig],[pred,impl]] := GETDATABASE(category, 'CONSTRUCTORMODEMAP) + [[dc,:sig],[pred,impl]] := getConstructorModemap category $CategoryFrame := put(category, 'isCategory, 'T, addModemap(category, dc, sig, pred, impl, $CategoryFrame)) @@ -626,12 +626,14 @@ findDomainSlotNumber(domain,op,sig) == --using slot 1 of the domain tail is [.,["ELT",.,n]] => n systemErrorHere '"findDomainSlotNumber" - + +++ return the modemap of the constructor or the instantiation +++ of the constructor `form'. getConstructorModemap form == GETDATABASE(opOf form, 'CONSTRUCTORMODEMAP) getConstructorSignature form == - (mm := GETDATABASE(opOf(form),'CONSTRUCTORMODEMAP)) => + (mm := getConstructorModemap form) => [[.,:sig],:.] := mm sig NIL |