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