diff options
| -rw-r--r-- | src/interp/define.boot | 2 | ||||
| -rw-r--r-- | src/interp/lisplib.boot | 1 |
2 files changed, 2 insertions, 1 deletions
diff --git a/src/interp/define.boot b/src/interp/define.boot index 36f3bcd3..8ad48282 100644 --- a/src/interp/define.boot +++ b/src/interp/define.boot @@ -1198,6 +1198,7 @@ compDefineCategory(df,m,e,fal) == db := constructorDB ctor kind := dbConstructorKind db kind ~= "category" => throwKeyedMsg("S2IC0016",[ctor,"category",kind]) + dbClearForCompilation! db dbConstructorForm(db) := lhs $insideFunctorIfTrue => compDefineCategory1(df,m,e,fal) compDefineLisplib(df,m,e,fal,'compDefineCategory1) @@ -1415,6 +1416,7 @@ dbClearForCompilation! db == dbAncestors(db) := nil dbPrincipals(db) := nil dbCategory(db) := nil + dbPredicates(db) := nil dbConstructorModemap(db) := nil dbDefaultDomain(db) := nil dbDualSignature(db) := nil diff --git a/src/interp/lisplib.boot b/src/interp/lisplib.boot index 4212679b..5da16dec 100644 --- a/src/interp/lisplib.boot +++ b/src/interp/lisplib.boot @@ -399,7 +399,6 @@ compileConstructorLib(l,op,editFlag,traceFlag) == compConLib1(fun,infileOrNil,outfileOrNil,auxOp,editFlag,traceFlag) == $PrettyPrint: local := 'T - dbPredicates(constructorDB fun) := nil $lisplibOperationAlist: local := nil $libFile: local := nil if cons? fun and null rest fun then fun:= first fun -- unwrap nullary |