From 6634594622ba229e94c7fba18430a5edbb8c22bc Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 28 Aug 2011 02:57:57 +0000
Subject: 	* interp/lisplib.boot (writeInstanceCache): Remove. 
 (finalizeLisplib): Don't call it.

---
 src/interp/lisplib.boot | 7 -------
 1 file changed, 7 deletions(-)

(limited to 'src/interp')

diff --git a/src/interp/lisplib.boot b/src/interp/lisplib.boot
index 679bda4a..f0477250 100644
--- a/src/interp/lisplib.boot
+++ b/src/interp/lisplib.boot
@@ -557,11 +557,6 @@ writeOperations(ctor,ops,file) ==
 writeConstructorModemap(ctor,mm,file) ==
   writeInfo(ctor,mm,'constructorModemap,'dbConstructorModemap,file)
 
-writeInstanceCache(ctor,file) ==
-  insn := ['%store,['dbInstanceCache,mkCtorDBForm ctor],'%true]
-  LAM_,FILEACTQ('instanceCache,expandToVMForm insn)
-  lisplibWrite('"instanceCache",'T,file)
-  
 ++ If compilation produces an error, issue inform user and
 ++ return to toplevel reader.
 leaveIfErrors(libName,kind) ==
@@ -579,8 +574,6 @@ finalizeLisplib(ctor,libName) ==
   writeConstructorForm(ctor,form,$libFile)
   writeKind(ctor,kind,$libFile)
   writeConstructorModemap(ctor,removeZeroOne mm,$libFile)
-  if dbInstanceCache constructorDB ctor then
-    writeInstanceCache(ctor,$libFile)
   $lisplibCategory := $lisplibCategory or mm.mmTarget
   -- set to target of mm for package/domain constructors;
   -- to the right-hand sides (the definition) for category constructors
-- 
cgit v1.2.3