aboutsummaryrefslogtreecommitdiff
path: root/src/interp/lisplib.boot
diff options
context:
space:
mode:
authorGabriel Dos Reis <gdr@axiomatics.org>2016-01-30 22:25:56 -0800
committerGabriel Dos Reis <gdr@axiomatics.org>2016-01-30 22:25:56 -0800
commit79f3a421e49a1b5baf5dd9bed6c2d640dac7dc95 (patch)
treea59345d0305ac847e7073e74dc031730e1fc55b4 /src/interp/lisplib.boot
parent04e645dc02abeaeb3102ab9c6bd149521b1282bb (diff)
downloadopen-axiom-79f3a421e49a1b5baf5dd9bed6c2d640dac7dc95.tar.gz
writeCapsuleLevelDefinitions: don't write into the index file
Diffstat (limited to 'src/interp/lisplib.boot')
-rw-r--r--src/interp/lisplib.boot3
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