* interp/define.boot (compDefineCategory2): Mark begining and end

	of definition processing.
	(compDefineFunctor1): Likewise.
	* interp/daase.lisp (dbPrincipals): New accessor.
	* interp/br-data.boot (getDefaultPackageClients): Fix thinko.
	* interp/lisplib.boot (writeAncestors): New.
	(finalizeLisplib): Use it

1 files changed, 6 insertions, 3 deletions

diff --git a/src/interp/daase.lisp b/src/interp/daase.lisp
index 16a63f22..678c390f 100644
--- a/src/interp/daase.lisp
+++ b/src/interp/daase.lisp
@@ -260,6 +260,9 @@
 (defmacro |dbCategory| (db)
   `(database-constructorcategory ,db))
 
+(defmacro |dbPrincipals| (db)
+  `(database-parents ,db))
+
 (defmacro |dbAncestors| (db)
   `(database-ancestors ,db))
 
@@ -702,7 +705,7 @@
 	(setf (database-documentation dbstruct) (fourth item))
 	(setf (|dbAttributes| dbstruct) (fifth item))
 	(setf (|dbPredicates| dbstruct) (sixth item))
-	(setf (database-parents dbstruct) (seventh item))))
+	(setf (|dbPrincipals| dbstruct) (seventh item))))
     (format t "~&")))
 
 (defun categoryOpen ()
@@ -912,7 +915,7 @@
 	      (parents
 	       (setq stream *browse-stream*)
 	       (when struct
-		 (setq data (database-parents struct))))
+		 (setq data (|dbPrincipals| struct))))
 	      (users
 	       (setq stream *browse-stream*)
 	       (when struct
@@ -967,7 +970,7 @@
 		(documentation 
 		 (setf (database-documentation struct) data))
 		(parents   
-		 (setf (database-parents struct) data))
+		 (setf (|dbPrincipals| struct) data))
 		(superdomain
 		 (setf (|dbSuperDomain| struct) data))
 		(users