From a46f90e0f19cf9c5512d459efc48bff6d15d9fb8 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 4 Sep 2011 17:44:24 +0000
Subject: 	* interp/br-data.boot: Don't use $lisplibParents. 	*
 interp/define.boot: Likewise. 	* interp/lisplib.boot: Likewise.

---
 src/interp/lisplib.boot | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'src/interp/lisplib.boot')

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)
-- 
cgit v1.2.3