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 | |
| parent | f4c22b31e5b7232f5d41d8d729cbb7e0e633adee (diff) | |
| download | open-axiom-db800c3db36926eb3d99023c722e59e391314d7b.tar.gz | |
* interp/lisplib.boot (writePrincipals): New.
(finalizeLisplib): Use it.
Diffstat (limited to 'src')
| -rw-r--r-- | src/ChangeLog | 5 | ||||
| -rw-r--r-- | src/interp/lisplib.boot | 5 |
2 files changed, 9 insertions, 1 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index f426bf10..3ca9aed2 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2011-08-29 Gabriel Dos Reis <gdr@cs.tamu.edu> + + * interp/lisplib.boot (writePrincipals): New. + (finalizeLisplib): Use it. + 2011-08-28 Gabriel Dos Reis <gdr@cs.tamu.edu> * interp/define.boot (compDefineCategory2): Mark begining and end 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) |