diff options
Diffstat (limited to 'src/interp/lisplib.boot')
-rw-r--r-- | src/interp/lisplib.boot | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/interp/lisplib.boot b/src/interp/lisplib.boot index 9b18b6ca..30803167 100644 --- a/src/interp/lisplib.boot +++ b/src/interp/lisplib.boot @@ -537,7 +537,8 @@ writePrincipals db == writeInfo(db,dbPrincipals db,'parents,'dbPrincipals) writeCapsuleLevelDefinitions db == - writeInfo(db,dbCapsuleDefinitions db, + dbConstructorKind db = 'category => nil -- categories don't have capsules + writeLoadInfo(db,quote dbCapsuleDefinitions db, 'signaturesAndLocals,'dbCapsuleDefinitions) ++ If compilation produces an error, issue inform user and |