From e572854c495b63ee446831a7d61a27e5bc84550f Mon Sep 17 00:00:00 2001 From: Gabriel Dos Reis Date: Wed, 20 Jan 2016 05:31:00 -0800 Subject: getConstructorArgsFromDB: remove as redundant. --- src/interp/daase.lisp | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'src/interp/daase.lisp') 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 -- cgit v1.2.3