diff options
Diffstat (limited to 'src/interp/lisplib.boot')
-rw-r--r-- | src/interp/lisplib.boot | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/src/interp/lisplib.boot b/src/interp/lisplib.boot index 28534646..08b9417b 100644 --- a/src/interp/lisplib.boot +++ b/src/interp/lisplib.boot @@ -32,8 +32,7 @@ -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. -import nlib -import c_-util +import database import debug namespace BOOT @@ -475,6 +474,11 @@ writeLookupFunction db == writeLoadInfo(db,quote fun,'lookupFunction,'dbLookupFunction) nil +writeCategoryDefault db == + pac := dbConstructorDefault db + insn := ['%store,['dbConstructorDefault,mkCtorDBForm db],quote pac] + printBackendStmt(dbLibstream db,expandToVMForm insn) + writeKind db == writeInfo(db,dbConstructorKind db,'constructorKind,'dbConstructorKind) @@ -540,7 +544,9 @@ leaveIfErrors(libName,kind) == finalizeLisplib(db,libName) == form := dbConstructorForm db writeTemplate db - writeLookupFunction db + do -- shared slot; careful. + dbConstructorKind db = 'category => writeCategoryDefault db + writeLookupFunction db writeConstructorForm db writeKind db writeConstructorModemap db |