diff options
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) |