diff options
author | Gabriel Dos Reis <gdr@axiomatics.org> | 2016-01-20 04:31:41 -0800 |
---|---|---|
committer | Gabriel Dos Reis <gdr@axiomatics.org> | 2016-01-20 04:31:41 -0800 |
commit | 7ce0611cdcc235063e66cd291bf20474dc40668c (patch) | |
tree | 45da383462b2b52a34a70eae16250efe23eb8a75 /src/interp/daase.lisp | |
parent | 358328696d6d123172da6357f577952f180b395d (diff) | |
download | open-axiom-7ce0611cdcc235063e66cd291bf20474dc40668c.tar.gz |
getConstructorFromFromDB: get it from compiled code.
Diffstat (limited to 'src/interp/daase.lisp')
-rw-r--r-- | src/interp/daase.lisp | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/src/interp/daase.lisp b/src/interp/daase.lisp index 8fbe451d..97e66462 100644 --- a/src/interp/daase.lisp +++ b/src/interp/daase.lisp @@ -507,7 +507,7 @@ (setq dbstruct (|makeDB| (first item))) (setq *allconstructors* (adjoin item *allconstructors*))) (setf (|dbSourceFile| dbstruct) (second item)) - (setf (|dbConstructorForm| dbstruct) (third item)) +; (setf (|dbConstructorForm| dbstruct) (third item)) (setf (database-documentation dbstruct) (fourth item)) ; (setf (|dbAttributes| dbstruct) (fifth item)) ; (setf (|dbPredicates| dbstruct) (sixth item)) @@ -667,10 +667,6 @@ (setq stream *browse-stream*) (when struct (setq data (|dbSourceFile| struct)))) - (constructorform - (setq stream *browse-stream*) - (when struct - (setq data (|dbConstructorForm| struct)))) (constructorargs (setq data (cdr (|getConstructorFormFromDB| constructor)))) (documentation @@ -705,8 +701,6 @@ (setf (|dbConstructor| struct) data)) (ancestors (setf (|dbAncestors| struct) data)) - (constructorform - (setf (|dbConstructorForm| struct) data)) (documentation (setf (database-documentation struct) data)) (users |