diff options
-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 dd862ebd..ed761760 100644 --- a/src/interp/daase.lisp +++ b/src/interp/daase.lisp @@ -1,6 +1,6 @@ ;; Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd. ;; All rights reserved. -;; Copyright (C) 2007-2015, Gabriel Dos Reis. +;; Copyright (C) 2007-2016, Gabriel Dos Reis. ;; All rights reserved. ;; ;; Redistribution and use in source and binary forms, with or without @@ -666,10 +666,6 @@ (setq data (|dbModule| struct)))) (constructor? (|fatalError| "GETDATABASE called with CONSTRUCTOR?")) - (superdomain - (setq stream *interp-stream*) - (when struct - (setq data (|dbSuperDomain| struct)))) (constructor (when (setq data (get constructor 'abbreviationfor)))) (defaultdomain @@ -736,8 +732,6 @@ (setf (database-documentation struct) data)) (parents (setf (|dbPrincipals| struct) data)) - (superdomain - (setf (|dbSuperDomain| struct) data)) (users (setf (database-users struct) data)) (dependents |