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/database.boot | |
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/database.boot')
-rw-r--r-- | src/interp/database.boot | 26 |
1 files changed, 1 insertions, 25 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]) == |