diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-08-25 01:34:18 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-08-25 01:34:18 +0000 |
| commit | 75a4b333cb95b26efc29b07d6a078b12f2d0b921 (patch) | |
| tree | 400faaa1adbec082f08ed23842786e6800366704 /src/interp/database.boot | |
| parent | ffbca7d35e4541017c1e1d736dacbe27e0de2c21 (diff) | |
| download | open-axiom-75a4b333cb95b26efc29b07d6a078b12f2d0b921.tar.gz | |
* interp/daase.lisp (dbArity, dbInstanceCache): New accessors.
* interp/database.boot (loadDBIfnecessary): New.
(dbMutable?): Likewise.
* interp/lisplib.boot (finalizeLisplib): Record mutable property.
Diffstat (limited to 'src/interp/database.boot')
| -rw-r--r-- | src/interp/database.boot | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/src/interp/database.boot b/src/interp/database.boot index c6f9c50a..3ba37506 100644 --- a/src/interp/database.boot +++ b/src/interp/database.boot @@ -821,3 +821,18 @@ printAllInitdbInfo(srcdir,dbfile) == for path in paths repeat printInitdbInfo(NAMESTRING path,out) finally closeStream out + +--% + +loadDBIfnecessary db == + ctor := dbConstructor db + property(ctor,'LOADED) => db + loadLib ctor or return nil + constructorDB ctor + +++ Returns true if instantiations of the constructor +++ defined by `db' should not be cached. +dbMutable? db == + dbInstanceCache loadDBIfnecessary db = nil + + |