示例#1
0
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);
}