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/daase.lisp | |
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/daase.lisp')
-rw-r--r-- | src/interp/daase.lisp | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/interp/daase.lisp b/src/interp/daase.lisp index f017756e..cd43e7d8 100644 --- a/src/interp/daase.lisp +++ b/src/interp/daase.lisp @@ -1124,8 +1124,7 @@ (if |$InteractiveMode| (setq |$CategoryFrame| |$EmptyEnvironment|))) (setf (|dbDualSignature| dbstruct) - (cons nil (mapcar #'|categoryForm?| - (cddar (|dbConstructorModemap| dbstruct))))) + (fetchdata alist in "dualSignature")) (setf (|dbLoadPath| (|constructorDB| key)) nil) (if (null noexpose) (|setExposeAddConstr| (cons key nil))) |