diff options
Diffstat (limited to 'src/interp')
-rw-r--r-- | src/interp/database.boot | 26 | ||||
-rw-r--r-- | src/interp/sys-driver.boot | 2 | ||||
-rw-r--r-- | src/interp/util.lisp | 1 |
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|) ) |