diff options
author | dos-reis <gdr@axiomatics.org> | 2011-09-05 03:45:38 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-09-05 03:45:38 +0000 |
commit | 0df766b3f8bec011ef9cd27ee55493f11e69335a (patch) | |
tree | 2869fda4ac2f11083355374eb8601802ea5478aa /src/interp/database.boot | |
parent | ce7aedf615e201aedf7f21d8aa18b2657dd56c3d (diff) | |
download | open-axiom-0df766b3f8bec011ef9cd27ee55493f11e69335a.tar.gz |
* interp/lisplib.boot (writeCategory): New,
(finalizeLisplib): Use it. Write category bodies in generated
Lisp code file.
* interp/daase.lisp (GETDATABASE) [CONSTRUCTORCATEGORY]: Don't
bother with package and domain constructors.
* interp/database.boot (getConstructorCategory): Rename from
getConstructorCategoryFromDB. Reimplement, Adjusr callers.
Diffstat (limited to 'src/interp/database.boot')
-rw-r--r-- | src/interp/database.boot | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/interp/database.boot b/src/interp/database.boot index 53aba6ec..c65f2c42 100644 --- a/src/interp/database.boot +++ b/src/interp/database.boot @@ -63,9 +63,11 @@ getConstructorAbbreviationFromDB: %Constructor -> %Symbol getConstructorAbbreviationFromDB ctor == GETDATABASE(ctor,"ABBREVIATION") -getConstructorCategoryFromDB: %Constructor -> %Form -getConstructorCategoryFromDB ctor == - GETDATABASE(ctor,"CONSTRUCTORCATEGORY") +getConstructorCategory: %Constructor -> %Form +getConstructorCategory ctor == + getConstructorKindFromDB ctor = 'category => + GETDATABASE(ctor,"CONSTRUCTORCATEGORY") + getConstructorModemap(ctor).mmTarget getConstructorKindFromDB: %Constructor -> %Maybe %ConstructorKind getConstructorKindFromDB ctor == |