diff options
Diffstat (limited to 'src/interp/daase.lisp')
-rw-r--r-- | src/interp/daase.lisp | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/interp/daase.lisp b/src/interp/daase.lisp index 50b6b63e..fcbc1a6a 100644 --- a/src/interp/daase.lisp +++ b/src/interp/daase.lisp @@ -225,7 +225,7 @@ users ; browse. dependents ; browse. superdomain ; interp. - spare ; superstition + instantiations ; nil if mutable constructor ) ; database structure @@ -277,6 +277,12 @@ (defmacro |dbModule| (db) `(database-object ,db)) +(defmacro |dbArity| (db) + `(list-length (cdr (|dbConstructorForm| ,db)))) + +(defmacro |dbInstanceCache| (db) + `(database-instantiations ,db)) + (defun |makeDB| (c) (let ((db (make-database))) (setf (|dbConstructor| db) c) |