diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-09-04 17:44:24 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-09-04 17:44:24 +0000 |
| commit | a46f90e0f19cf9c5512d459efc48bff6d15d9fb8 (patch) | |
| tree | 05e02fbb5095dc83cfdfa7ae788ad9d119607685 /src/interp/lisplib.boot | |
| parent | 2be7e3089ebb7c7d179306b5bb26272fc0a5c249 (diff) | |
| download | open-axiom-a46f90e0f19cf9c5512d459efc48bff6d15d9fb8.tar.gz | |
* interp/br-data.boot: Don't use $lisplibParents.
* interp/define.boot: Likewise.
* interp/lisplib.boot: 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 5d1446bc..7c03dce3 100644 --- a/src/interp/lisplib.boot +++ b/src/interp/lisplib.boot @@ -445,7 +445,6 @@ compConLib1(fun,infileOrNil,outfileOrNil,auxOp,editFlag,traceFlag) == $PrettyPrint: local := 'T $LISPLIB: local := 'T $lisplibPredicates: local := nil - $lisplibParents: local := nil $lisplibAncestors: local := nil $lisplibModemapAlist: local := nil $lisplibSlot1 : local := nil --used by NRT mechanisms @@ -472,7 +471,6 @@ compDefineLisplib(df:=["DEF",[op,:.],:.],m,e,prefix,fal,fn) == $LISPLIB: local := 'T $op: local := op $lisplibPredicates: local := nil -- set by makePredicateBitVector - $lisplibParents: local := nil $lisplibAncestors: local := nil $lisplibModemapAlist: local := nil $lisplibSlot1 : local := nil -- used by NRT mechanisms @@ -604,7 +602,7 @@ finalizeLisplib(ctor,libName) == writeAttributes(ctor,removeZeroOne dbAttributes db,$libFile) lisplibWrite('"predicates",removeZeroOne $lisplibPredicates,$libFile) lisplibWrite('"abbreviation",dbAbbreviation constructorDB ctor,$libFile) - writePrincipals(ctor,removeZeroOne $lisplibParents,$libFile) + writePrincipals(ctor,removeZeroOne dbPrincipals db,$libFile) writeAncestors(ctor,removeZeroOne $lisplibAncestors,$libFile) lisplibWrite('"documentation",finalizeDocumentation ctor,$libFile) lisplibWrite('"slot1Info",removeZeroOne $lisplibSlot1,$libFile) |