rem: keyedList = Tcl_GetVar(interp, argv[1], 0);
add: keyedList = (char*)Tcl_GetVar(interp, argv[1], 0);
context: Tcl_KeylsetCmd(clientData, interp, argc, argv)    ClientData      clientData;    Tcl_Interp     *interp;    int             argc;    char          **argv;{    char           *keyedList, *newList, *prevList;    char           *varPtr;    int             idx;    if ((argc < 4) || ((argc % 2) != 0)) {        Tcl_AppendResult(interp, tclXWrongArgs, argv[0],            " listvar key value ?key value...?", (char *) NULL);        return TCL_ERROR;    }    keyedList = Tcl_GetVar(interp, argv[1], 0);    newList = keyedList;    for (idx = 2; idx < argc; idx += 2) {        prevList = newList;        newList = Tcl_SetKeyedListField(interp, argv[idx], argv[idx + 1],            prevList);        if (prevList != keyedList)            ckfree(prevList);        if (newList == NULL)            return TCL_ERROR;    }    varPtr = Tcl_SetVar(interp, argv[1], newList, TCL_LEAVE_ERR_MSG);    ckfree((char *) newList);    return (varPtr == NULL) ? TCL_ERROR : TCL_OK;}