diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-10-29 00:23:23 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-10-29 00:23:23 +0000 |
| commit | 79900718a4de54668c6ed6357453480c17b00168 (patch) | |
| tree | 385f66752b47948519d414975957e351145c56eb /src/interp/daase.lisp | |
| parent | 0c79bf08a243116545f78251958abc61377f1ed3 (diff) | |
| download | open-axiom-79900718a4de54668c6ed6357453480c17b00168.tar.gz | |
* interp/nruncomp.boot (mkDomainCatName): Remove.
* interp/daase.lisp (DATABSE): Add new field TEMPLATE.
(dbTemplate): New macro accessor.
* interp/clam.boot (clearCategoryCaches): Clear dbTemplate.
* interp/define.boot (DomainSubstitutionFunction): Generate code
to access or set dbTemplate.
Diffstat (limited to 'src/interp/daase.lisp')
| -rw-r--r-- | src/interp/daase.lisp | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/interp/daase.lisp b/src/interp/daase.lisp index bf760d34..ddade882 100644 --- a/src/interp/daase.lisp +++ b/src/interp/daase.lisp @@ -229,6 +229,8 @@ being-defined ; T is definition of constructor is being processed load-path ; full object path name, when loaded. capsule-definitions ; capsule-level definitions + template ; for a category, this the generic instantce. + ; for a functor, this is the template. ) ; database structure @@ -298,6 +300,9 @@ (defmacro |dbCapsuleDefinitions| (db) `(database-capsule-definitions ,db)) +(defmacro |dbTemplate| (db) + `(database-template ,db)) + (defun |makeDB| (c) (let ((db (make-database))) (setf (|dbConstructor| db) c) |