From c5659a8580de5b531891c6703465c84add9fbb1b Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sun, 13 Apr 2008 06:22:18 +0000 Subject: Various cleanups. --- src/interp/clam.boot | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/interp/clam.boot') 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")) -- cgit v1.2.3