diff options
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))) |