// removes entries from start to end of linkName. returning the new size of
// linkName;
integer linkListDeleteSubList(string linkName, integer start, integer end)
{
    integer i;
    string  tempList = llGenerateKey();
    list tl;

    llResetTime();
    // copy to tempList, removing entries.
    for(i = 0; i < start; i++)
    {
        BLINK(i, RED, BLUE);
        addLinkData(tempList, linkList2String(linkName, i));
    }
    for(i = start; i < (end + 1); ++i)
    {
        BLINK(i, RED, BLUE);
        tl = llLinksetDataDeleteFound("^" + linkName+"\\|"+(string) i +":", "");
    }
    for(; i < GetlinkListLength(linkName); i++)
    {
        BLINK(i, RED, BLUE);
        addLinkData(tempList, linkList2String(linkName, i));
    }
    DS("cleaning lists : " + (string) llGetAndResetTime());
    // delete all the entries in linkList
    llLinksetDataDeleteFound("^" + linkName, "");

    // copy over tempList to linkName
    for(i = 0; i < GetlinkListLength(tempList); i++)
        addLinkData(linkName, linkList2String(tempList, i));

    // delete the tmpList
    llLinksetDataDeleteFound("^" + tempList, "");




    DS((string)llGetTime());
    return i;
}