diff options
Diffstat (limited to 'src/interp/daase.lisp')
-rw-r--r-- | src/interp/daase.lisp | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/src/interp/daase.lisp b/src/interp/daase.lisp index 294936ff..86504bdb 100644 --- a/src/interp/daase.lisp +++ b/src/interp/daase.lisp @@ -655,8 +655,6 @@ (setq data (|dbModule| struct)))) (constructor? (|fatalError| "GETDATABASE called with CONSTRUCTOR?")) - (constructor - (when (setq data (get constructor 'abbreviationfor)))) (defaultdomain (setq data (cadr (assoc constructor *defaultdomain-list*)))) (sourcefile @@ -691,8 +689,6 @@ (setf (|dbModemaps| struct) data)) (object (setf (|dbModule| struct) data)) - (constructor - (setf (|dbConstructor| struct) data)) (documentation (setf (database-documentation struct) data)) (users |