diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-07-10 21:44:53 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-07-10 21:44:53 +0000 |
| commit | 452dc63a67da26ebe9e1578378512d7884775f3e (patch) | |
| tree | aaf790780768b2d5d674085015be06d9a74ff637 /src/interp | |
| parent | a1bb5cce1d72ad7b20b2aa873fb08b372fc1fe45 (diff) | |
| download | open-axiom-452dc63a67da26ebe9e1578378512d7884775f3e.tar.gz | |
* interp/database.boot (addConsDB): Remove.
(getOperationAlistFromLisplib): Don't call it.
* interp/sys-driver.boot (initializeGlobalState): Remove kludge.
* interp/util.lisp (BUILD-INTERPSYS): Likewise.
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|) ) |