aboutsummaryrefslogtreecommitdiff
path: root/src/interp/daase.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/daase.lisp')
-rw-r--r--src/interp/daase.lisp7
1 files changed, 5 insertions, 2 deletions
diff --git a/src/interp/daase.lisp b/src/interp/daase.lisp
index fce8ca41..d848d8be 100644
--- a/src/interp/daase.lisp
+++ b/src/interp/daase.lisp
@@ -226,7 +226,7 @@
dependents ; browse.
superdomain ; interp.
instantiations ; nil if mutable constructor
- being-defined ; T is definition of constructor is being processed
+ 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.
@@ -291,8 +291,11 @@
(defmacro |dbInstanceCache| (db)
`(database-instantiations ,db))
+(defmacro |dbCompilerData| (db)
+ `(database-compiler-data ,db))
+
(defmacro |dbBeingDefined?| (db)
- `(database-being-defined ,db))
+ `(|dbCompilerData| ,db))
(defmacro |dbLoadPath| (db)
`(database-load-path ,db))