diff options
| author | Gabriel Dos Reis <gdr@axiomatics.org> | 2016-01-13 03:54:27 -0800 |
|---|---|---|
| committer | Gabriel Dos Reis <gdr@axiomatics.org> | 2016-01-13 03:54:27 -0800 |
| commit | 7a0c86e9fcbccd980eb5d0a94fb0d6d6c1a7b0d6 (patch) | |
| tree | 78bfe5460d29b632332ff896afbb9962415d07f3 | |
| parent | a2a9f3d7379dc1dfb26c22c890cac0cdf67f759c (diff) | |
| download | open-axiom-7a0c86e9fcbccd980eb5d0a94fb0d6d6c1a7b0d6.tar.gz | |
GETDATABASE: Remove dead alternatives.
| -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 |