diff options
author | dos-reis <gdr@axiomatics.org> | 2011-09-05 17:03:22 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-09-05 17:03:22 +0000 |
commit | d2ca538c4cdb2eb5fb5c41722d19821cd40fda55 (patch) | |
tree | 2059f0ed83abc4533d6be4b5764da441e05d12c6 /src/interp/database.boot | |
parent | 9e27d1d1db7750bc072292998efabc65591ab0b9 (diff) | |
download | open-axiom-d2ca538c4cdb2eb5fb5c41722d19821cd40fda55.tar.gz |
Stop using LOADED symbol property of constructors.
* interp/daase.lisp (DATABASE) [LOAD-PATH]: New field.
(dbLoadPath): New accessor.
(INITIAL-GETDATABASE): Tidy.
* interp/database.boot: Use dbLoadPath and dbLoaded?.
* interp/lisplib.boot: Likewise.
* interp/nrunfast.boot: Likewise.
* interp/showimp.boot: Likewise.
* interp/br-util.boot (isLoaded?): Remove as unused.
Diffstat (limited to 'src/interp/database.boot')
-rw-r--r-- | src/interp/database.boot | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/interp/database.boot b/src/interp/database.boot index c65f2c42..22af0aac 100644 --- a/src/interp/database.boot +++ b/src/interp/database.boot @@ -643,7 +643,7 @@ updateDatabase(fname,cname,systemdir?) == if oldFname := getConstructorAbbreviationFromDB cname then clearClams() clearAllSlams [] - if property(cname, 'LOADED) then + if dbLoaded? constructorDB cname then clearConstructorCaches() if $forceDatabaseUpdate or not systemdir? then clearClams() @@ -826,8 +826,11 @@ printAllInitdbInfo(srcdir,dbfile) == --% +dbLoaded? db == + dbLoadPath db ~= nil + loadDBIfnecessary db == ctor := dbConstructor db - property(ctor,'LOADED) => db + dbLoaded? db => db loadLib ctor or return nil constructorDB ctor |