diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-08-29 07:00:28 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-08-29 07:00:28 +0000 |
| commit | db800c3db36926eb3d99023c722e59e391314d7b (patch) | |
| tree | 28a2127f628cdc9bd77449ec532de4912812fc73 /src/interp/lisplib.boot | |
| parent | f4c22b31e5b7232f5d41d8d729cbb7e0e633adee (diff) | |
| download | open-axiom-db800c3db36926eb3d99023c722e59e391314d7b.tar.gz | |
* interp/lisplib.boot (writePrincipals): New.
(finalizeLisplib): Use it.
Diffstat (limited to 'src/interp/lisplib.boot')
| -rw-r--r-- | src/interp/lisplib.boot | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/interp/lisplib.boot b/src/interp/lisplib.boot index dc2e587b..9029c3a6 100644 --- a/src/interp/lisplib.boot +++ b/src/interp/lisplib.boot @@ -560,6 +560,9 @@ writeConstructorModemap(ctor,mm,file) == writeAncestors(ctor,x,file) == writeInfo(ctor,x,'ancestors,'dbAncestors,file) +writePrincipals(ctor,x,file) == + writeInfo(ctor,x,'parents,'dbPrincipals,file) + ++ If compilation produces an error, issue inform user and ++ return to toplevel reader. leaveIfErrors(libName,kind) == @@ -596,7 +599,7 @@ finalizeLisplib(ctor,libName) == lisplibWrite('"attributes",removeZeroOne dbAttributes db,$libFile) lisplibWrite('"predicates",removeZeroOne $lisplibPredicates,$libFile) lisplibWrite('"abbreviation",dbAbbreviation constructorDB ctor,$libFile) - lisplibWrite('"parents",removeZeroOne $lisplibParents,$libFile) + writePrincipals(ctor,removeZeroOne $lisplibParents,$libFile) writeAncestors(ctor,removeZeroOne $lisplibAncestors,$libFile) lisplibWrite('"documentation",finalizeDocumentation ctor,$libFile) lisplibWrite('"slot1Info",removeZeroOne $lisplibSlot1,$libFile) |