diff options
| author | Gabriel Dos Reis <gdr@axiomatics.org> | 2016-01-09 23:18:22 -0800 |
|---|---|---|
| committer | Gabriel Dos Reis <gdr@axiomatics.org> | 2016-01-09 23:18:22 -0800 |
| commit | 3465292862da54d168542b62be13790de0cd5988 (patch) | |
| tree | 259d52b741cba3391877c529b6261edb71fb00f6 /src/interp/daase.lisp | |
| parent | ea62b3a837416bea218f7a52db80505b8d271dc3 (diff) | |
| download | open-axiom-3465292862da54d168542b62be13790de0cd5988.tar.gz | |
Switch getDualSignature to avoiding interpreter database
Now that OpenAxiom emits the dual signature data also directly in the
generated executable code for a constructor, there is no no need to
consult the interpreter data base for that information. This change
relies on the previous commit, e.g. getDualSignature should be
considered invalid for builtin constructors. Any instanbility caused
by this patch should be considered a latent bug that should be given
high priority fixing.
Diffstat (limited to 'src/interp/daase.lisp')
| -rw-r--r-- | src/interp/daase.lisp | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/src/interp/daase.lisp b/src/interp/daase.lisp index 213ffdf4..dd862ebd 100644 --- a/src/interp/daase.lisp +++ b/src/interp/daase.lisp @@ -637,12 +637,6 @@ (and (eq key 'hascategory) (consp constructor))) (let ((struct (and (symbolp constructor) (|constructorDB| constructor)))) (case key -; note that abbreviation, constructorkind and cosig are heavy hitters -; thus they occur first in the list of things to check - (cosig - (setq stream *interp-stream*) - (when struct - (setq data (|dbDualSignature| struct)))) (operation (setq stream *operation-stream*) (setq data (gethash constructor *operation-hash*))) @@ -722,10 +716,6 @@ (setf (gethash constructor *operation-hash*) data)) (hascategory (setf (gethash constructor |$HasCategoryTable|) data)) - (constructorkind - (setf (|dbConstructorKind| struct) data)) - (cosig - (setf (|dbDualSignature| struct) data)) (constructormodemap (setf (|dbConstructorModemap| struct) data)) (constructorcategory @@ -736,8 +726,6 @@ (setf (|dbModemaps| struct) data)) (object (setf (|dbModule| struct) data)) - (abbreviation - (setf (|dbAbbreviation| struct) data)) (constructor (setf (|dbConstructor| struct) data)) (ancestors |