getVmPointer
if( getVmPointer(interp, argv[1], &vm) ) return TCL_ERROR;
if( getVmPointer(interp, argv[1], &vm) ) return TCL_ERROR;
if( getVmPointer(interp, argv[1], &vm) ) return TCL_ERROR;
if( getVmPointer(interp, argv[1], &vm) ) return TCL_ERROR;