diff options
author | Gabriel Dos Reis <gdr@axiomatics.org> | 2016-01-20 05:31:00 -0800 |
---|---|---|
committer | Gabriel Dos Reis <gdr@axiomatics.org> | 2016-01-20 05:31:00 -0800 |
commit | e572854c495b63ee446831a7d61a27e5bc84550f (patch) | |
tree | 47a8fb57dc01e56c6b5ac0fabcf901064491a46a /src/interp/daase.lisp | |
parent | 7ce0611cdcc235063e66cd291bf20474dc40668c (diff) | |
download | open-axiom-e572854c495b63ee446831a7d61a27e5bc84550f.tar.gz |
getConstructorArgsFromDB: remove as redundant.
Diffstat (limited to 'src/interp/daase.lisp')
-rw-r--r-- | src/interp/daase.lisp | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/interp/daase.lisp b/src/interp/daase.lisp index 97e66462..4bfd30da 100644 --- a/src/interp/daase.lisp +++ b/src/interp/daase.lisp @@ -597,7 +597,7 @@ (format t "~a: ~a~%" 'constructorform (|getConstructorFormFromDB| constructor)) (format t "~a: ~a~%" 'constructorargs - (|getConstructorArgsFromDB| constructor)) + (|getConstructorArgs| constructor)) (format t "~a: ~a~%" 'attributes (|getConstructorAttributes| constructor)) (format t "~a: ~%" 'predicates) @@ -667,8 +667,6 @@ (setq stream *browse-stream*) (when struct (setq data (|dbSourceFile| struct)))) - (constructorargs - (setq data (cdr (|getConstructorFormFromDB| constructor)))) (documentation (setq stream *browse-stream*) (when struct |