3 files changed, 1 insertions, 28 deletions
diff --git a/src/interp/database.boot b/src/interp/database.boot
index 3f4ced20..6f597615 100644
--- a/src/interp/database.boot
+++ b/src/interp/database.boot
@@ -677,29 +677,6 @@ markUnique x ==
   x.rest := [u,:rest x]
   rest x
 
-addConsDB x ==
-  min x where
-    min x ==
-      y:=HGET($consDB,x)
-      y => y
-      cons? x =>
-        for z in tails x repeat
-          u:=min first z
-          if not EQ(u,first z) then z.first := u
-        HashCheck x
-      REFVECP x =>
-        for i in 0..MAXINDEX x repeat
-          x.i:=min (x.i)
-        HashCheck x
-      string? x => HashCheck x
-      x
-    HashCheck x ==
-      y:=HGET($consDB,x)
-      y => y
-      HPUT($consDB,x,x)
-      x
-  x
-
 ++ Tail of most function descriptors.
 $FunctionDescriptorTail == '(NIL T ELT)
 
@@ -714,7 +691,7 @@ getOperationAlistFromLisplib x ==
 --  u := removeZeroOneDestructively u
   null u => u          -- this can happen for Object
   CAAR u = '_$unique => rest u
-  f:= addConsDB $FunctionDescriptorTail
+  f:= $FunctionDescriptorTail
   for [op,:sigList] in u repeat
     for items in tails sigList repeat
       [sig,:r] := first items
@@ -724,7 +701,6 @@ getOperationAlistFromLisplib x ==
           else s.rest := QCDDR f
         else r.rest := rest f
       else items.first.rest := f
-      items.first := addConsDB first items
   u and markUnique u
 
 getOplistForConstructorForm (form := [op,:argl]) ==
diff --git a/src/interp/sys-driver.boot b/src/interp/sys-driver.boot
index 11c60b1c..fa76a020 100644
--- a/src/interp/sys-driver.boot
+++ b/src/interp/sys-driver.boot
@@ -212,8 +212,6 @@ initializeGlobalState() ==
   -- 3. Databases
   if $verbose and $displayStartMsgs then 
     sayKeyedMsg("S2IZ0053",['"database"])
-  if have_to then  -- ??? remove this functiom from the system?
-    SETF(SYMBOL_-FUNCTION "addConsDB", function IDENTITY)
   if have_to then
     fillDatabasesInCore()
     mkLowerCaseConTable()
diff --git a/src/interp/util.lisp b/src/interp/util.lisp
index 1da23cf4..dac184e8 100644
--- a/src/interp/util.lisp
+++ b/src/interp/util.lisp
@@ -370,7 +370,6 @@
   (setq *load-verbose* nil)
   (|setBootAutloadProperties| translate-functions translate-files)
   (|setBootAutloadProperties| asauto-functions asauto-files)
-  (setf (symbol-function '|addConsDB|) #'identity)
   (|fillDatabasesInCore|) ; the databases into core, then close the streams
   (|closeAllDatabaseStreams|)
  )