diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-04-13 06:22:18 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-04-13 06:22:18 +0000 |
| commit | c5659a8580de5b531891c6703465c84add9fbb1b (patch) | |
| tree | 60966651b64626e365cd158a89cd41a9028ea8a9 /src/interp/clam.boot | |
| parent | 3c748c0ab1f5119528ae3ae41cc144371b1b375c (diff) | |
| download | open-axiom-c5659a8580de5b531891c6703465c84add9fbb1b.tar.gz | |
Various cleanups.
Diffstat (limited to 'src/interp/clam.boot')
| -rw-r--r-- | src/interp/clam.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/clam.boot b/src/interp/clam.boot index ff119529..e9f4a787 100644 --- a/src/interp/clam.boot +++ b/src/interp/clam.boot @@ -344,8 +344,8 @@ clearConstructorCaches() == CLRHASH $ConstructorCache clearConstructorCache(cname) == - (kind := GETDATABASE(cname,'CONSTRUCTORKIND)) => - kind = 'category => clearCategoryCache cname + (kind := getConstructorKindFromDB cname) => + kind = "category" => clearCategoryCache cname HREM($ConstructorCache,cname) clearConstructorAndLisplibCaches() == @@ -354,7 +354,7 @@ clearConstructorAndLisplibCaches() == clearCategoryCaches() == for name in allConstructors() repeat - if GETDATABASE(name,'CONSTRUCTORKIND) = 'category then + if getConstructorKindFromDB name = "category" then if BOUNDP(cacheName:= INTERNL STRCONC(PNAME name,'";AL")) then setDynamicBinding(cacheName,nil) if BOUNDP(cacheName:= INTERNL STRCONC(PNAME name,'";CAT")) |