diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-09-07 16:07:42 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-09-07 16:07:42 +0000 |
| commit | 88c6450a9068d951752e06f5ee40d63de1e95fd8 (patch) | |
| tree | 2f8d3f6bc7cb5dca9151ce51363e3cbaf6691d38 /src/interp/lisplib.boot | |
| parent | 80e53e21c3d0f18791ca5a4905217c1f89aa90f1 (diff) | |
| download | open-axiom-88c6450a9068d951752e06f5ee40d63de1e95fd8.tar.gz | |
* interp/nruncomp.boot (NRTaddInner): Use the dual signature.
* interp/lisplib.boot (writeDualSignature): New.
(finalizeLisplib): Likewise.
* interp/define.boot (compDefineCategory2): Compute dual signature.
(compDefineFunctor1): Likewise.
* interp/daase.lisp (LOCALNRLIB): Juts read dual signature info;
don't compute it.
Diffstat (limited to 'src/interp/lisplib.boot')
| -rw-r--r-- | src/interp/lisplib.boot | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/interp/lisplib.boot b/src/interp/lisplib.boot index 598304a8..b992cc6c 100644 --- a/src/interp/lisplib.boot +++ b/src/interp/lisplib.boot @@ -560,6 +560,10 @@ writeAttributes(ctor,ats,file) == writeConstructorModemap(ctor,mm,file) == writeInfo(ctor,mm,'constructorModemap,'dbConstructorModemap,file) +writeDualSignature(db,file) == + writeInfo(dbConstructor db,dbDualSignature db, + 'dualSignature,'dbDualSignature,file) + writeAncestors(ctor,x,file) == writeInfo(ctor,x,'ancestors,'dbAncestors,file) @@ -583,6 +587,7 @@ finalizeLisplib(ctor,libName) == writeConstructorForm(ctor,form,$libFile) writeKind(ctor,kind,$libFile) writeConstructorModemap(ctor,removeZeroOne mm,$libFile) + writeDualSignature(db,$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 |