diff options
Diffstat (limited to 'src/interp/daase.lisp')
-rw-r--r-- | src/interp/daase.lisp | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/src/interp/daase.lisp b/src/interp/daase.lisp index 86504bdb..d80cd961 100644 --- a/src/interp/daase.lisp +++ b/src/interp/daase.lisp @@ -209,15 +209,16 @@ parents ; browse. users ; browse. dependents ; browse. - superdomain ; interp. + superdomain ; interp. overloaded field + ; for domain: base domain of a subdomain + ; for category: default package constructor instantiations ; nil if mutable constructor compiler-data ; holds compiler data when processing constructor load-path ; full object path name, when loaded. capsule-definitions ; capsule-level definitions template ; for a category, this is the generic instance. ; for a functor, this is the template. - lookup-function ; for a functor, lookup function. For category - ; constructor, default package constructor. + lookup-function ; for a functor, lookup function. optable ; for a functor, operation table. ) ; database structure @@ -1009,7 +1010,8 @@ (finish-output out)) (setq ancestorspos nil)) (setq superpos - (let ((super (|dbSuperDomain| struct))) + (let ((super (and (not (|dbForCategory?| struct)) + (|dbSuperDomain| struct)))) (when super (prog1 (file-position out) (print (list (car super) (second super)) out) |