LispObject* ShiftRight( LispObject* int1, LispObject* int2, LispEnvironment& aEnvironment,int aPrecision) { BigNumber *number = new BigNumber(); int bits = InternalAsciiToInt(*int2->String()); number->ShiftRight(*int1->Number(aPrecision),bits); return new LispNumber(number); }