diff options
author | dos-reis <gdr@axiomatics.org> | 2010-07-10 13:33:13 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-07-10 13:33:13 +0000 |
commit | e72ded0c7d7fdf5da10fe57f806fde5314cf79c5 (patch) | |
tree | e842d90b009db2f195067fd3438076f83b902412 /src/interp/define.boot | |
parent | 826ba0aeb9d02fbf93b4ccc44a1c45e7a10917df (diff) | |
download | open-axiom-e72ded0c7d7fdf5da10fe57f806fde5314cf79c5.tar.gz |
* interp/functor.boot (setVector4): Remove. Deadcode.
(setVector4Onecat): Likewise.
(setVector4part3): Likewise.
* interp/nruncomp.boot (NRTsetVector4): Likewise.
(NRTsetVector4Part2): Likewise.
(mergeAppend): Likewise.
* interp/define.boot (compDefineFunctor1): Remove assignment to
unused $lisplibCategoriesExtented.
* interp/lisplib.boot (compDefineLisplib): Likewise.
* interp/wi1.boot (compDefineLisplib): Likewise.
* interp/wi2.boot (compDefineFunctor1): Likewise.
Diffstat (limited to 'src/interp/define.boot')
-rw-r--r-- | src/interp/define.boot | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/src/interp/define.boot b/src/interp/define.boot index bf90b572..5b73b5d9 100644 --- a/src/interp/define.boot +++ b/src/interp/define.boot @@ -85,7 +85,6 @@ $NRTdeltaListComp := [] $template := nil $signature := nil $isOpPackageName := false -$lisplibCategoriesExtended := [] $lookupFunction := nil $byteAddress := nil $byteVec := nil @@ -732,8 +731,6 @@ compDefineFunctor1(df is ['DEF,form,signature,nils,body], if $isOpPackageName then lisplibWrite('"slot1DataBase", ['updateSlot1DataBase,MKQ $NRTslot1Info],$libFile) $lisplibFunctionLocations := SUBLIS($pairlis,$functionLocations) - $lisplibCategoriesExtended := SUBLIS($pairlis,$lisplibCategoriesExtended) - -- see NRTsetVector4 for initial setting of $lisplibCategoriesExtended libFn := getConstructorAbbreviationFromDB op' $lookupFunction: local := NRTgetLookupFunction($functorForm,$lisplibModemap.mmTarget,$NRTaddForm) |