From 3465292862da54d168542b62be13790de0cd5988 Mon Sep 17 00:00:00 2001 From: Gabriel Dos Reis Date: Sat, 9 Jan 2016 23:18:22 -0800 Subject: 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. --- src/interp/daase.lisp | 12 ------------ 1 file changed, 12 deletions(-) (limited to 'src/interp/daase.lisp') 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 -- cgit v1.2.3