From 7a0c86e9fcbccd980eb5d0a94fb0d6d6c1a7b0d6 Mon Sep 17 00:00:00 2001 From: Gabriel Dos Reis Date: Wed, 13 Jan 2016 03:54:27 -0800 Subject: GETDATABASE: Remove dead alternatives. --- src/interp/daase.lisp | 8 +------- 1 file changed, 1 insertion(+), 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 -- cgit v1.2.3