diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-10-28 02:46:40 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-10-28 02:46:40 +0000 |
| commit | 744779f998fb99f7625b1b1af9dcbfae527935bd (patch) | |
| tree | a96b1be87dc0417361eb8c558d7bd51a1f1cef22 /src/interp/lisplib.boot | |
| parent | 6a3913853aeb542f155a1164eb48aba1724f17f7 (diff) | |
| download | open-axiom-744779f998fb99f7625b1b1af9dcbfae527935bd.tar.gz | |
* interp/sys-globals.boot ($lisplibModemapAlist): Remove.
* interp/lisplib.boot (compileConstructorLib): Do not bind
$lisplibModemapAlist.
(compDefineLisplib): Likewise.
* interp/database.boot (modemapsFromCategory): Rename from
augLisplibModmapsFromCategory. Tidy. Avoid use of special
variable $lisplibModemapAlist.
(modemapsFromFunctor): Rename from augmentLisplibFromFunctor.
Tidy. Avoid use of special variable $lisplibModemapAlist.
* interp/define.boot (compDefineCategory2): Adjust.
(compDefineFunctor1): Likewise.
Diffstat (limited to 'src/interp/lisplib.boot')
| -rw-r--r-- | src/interp/lisplib.boot | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/interp/lisplib.boot b/src/interp/lisplib.boot index c7d3bfdb..f8cf0867 100644 --- a/src/interp/lisplib.boot +++ b/src/interp/lisplib.boot @@ -387,7 +387,6 @@ compileConstructorLib(l,op,editFlag,traceFlag) == compConLib1(fun,infileOrNil,outfileOrNil,auxOp,editFlag,traceFlag) == $PrettyPrint: local := 'T $lisplibPredicates: local := nil - $lisplibModemapAlist: local := nil $lisplibOperationAlist: local := nil $libFile: local := nil $lisplibVariableAlist: local := nil @@ -409,7 +408,6 @@ compDefineLisplib(df:=["DEF",[op,:.],:.],m,e,prefix,fal,fn) == sayMSG fillerSpaces(72,char "-") $op: local := op $lisplibPredicates: local := nil -- set by makePredicateBitVector - $lisplibModemapAlist: local := nil $lisplibOperationAlist: local := nil $lisplibSignatureAlist: local := nil $libFile: local := nil @@ -534,7 +532,7 @@ finalizeLisplib(ctor,libName) == if dbConstructorKind db = 'category then writeCategory(ctor,$lisplibCategory,$libFile) lisplibWrite('"sourceFile",namestring _/EDITFILE,$libFile) - lisplibWrite('"modemaps",$lisplibModemapAlist,$libFile) + lisplibWrite('"modemaps",dbModemaps db,$libFile) opsAndAtts := getConstructorOpsAndAtts(form,kind,mm) writeOperations(ctor,first opsAndAtts,$libFile) if kind='category then |