diff options
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) |