diff options
author | dos-reis <gdr@axiomatics.org> | 2013-06-01 23:19:45 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2013-06-01 23:19:45 +0000 |
commit | a3e6e9952e0de879ff229b37eb81a78e2c8954bc (patch) | |
tree | 62b201d9363e2c260b7a314999da59c45aa6d995 /src/interp/lisplib.boot | |
parent | 1d9460d2c22682ac6cb649fd45d47f02bf1cf282 (diff) | |
download | open-axiom-a3e6e9952e0de879ff229b37eb81a78e2c8954bc.tar.gz |
Cache more category objects.
Diffstat (limited to 'src/interp/lisplib.boot')
-rw-r--r-- | src/interp/lisplib.boot | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/src/interp/lisplib.boot b/src/interp/lisplib.boot index 8dceae5d..9bb304aa 100644 --- a/src/interp/lisplib.boot +++ b/src/interp/lisplib.boot @@ -616,23 +616,6 @@ getSlotFromFunctor(target) == systemErrorHere "getSlotFromFunctor" categoryRef(t.expr,2) -getSlot1 domainName == - $e: local:= $CategoryFrame - fn:= getLisplibName domainName - p := pathname [fn,$spadLibFT,'"*"] - not isExistingFile(p) => - sayKeyedMsg("S2IL0003",[namestring p]) - nil - (sig := getConstructorSignature domainName) => - [.,target,:argMml] := sig - for a in $FormalMapVariableList for m in argMml repeat - $e:= put(a,'mode,m,$e) - t := compMakeCategoryObject(target,$e) or - systemErrorHere ["getSlot1",domainName] - categoryExports t.expr - sayKeyedMsg("S2IL0022",[namestring p,'"constructor modemap"]) - nil - transformOperationAlist operationAlist == -- this transforms the operationAlist which is written out onto LISPLIBs. -- The original form of this list is a list of items of the form: |