diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-08-28 02:57:57 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-08-28 02:57:57 +0000 |
| commit | 6634594622ba229e94c7fba18430a5edbb8c22bc (patch) | |
| tree | 6717ca2aa0b210b04498bfcb5aa1bb8b328e7ff7 /src/interp/lisplib.boot | |
| parent | 262325f74851dd27801c01818c7291e725799e8d (diff) | |
| download | open-axiom-6634594622ba229e94c7fba18430a5edbb8c22bc.tar.gz | |
* interp/lisplib.boot (writeInstanceCache): Remove.
(finalizeLisplib): Don't call it.
Diffstat (limited to 'src/interp/lisplib.boot')
| -rw-r--r-- | src/interp/lisplib.boot | 7 |
1 files changed, 0 insertions, 7 deletions
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 |