aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/ChangeLog5
-rw-r--r--src/interp/lisplib.boot5
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)