Esempio n. 1
0
LispObject* ShiftLeft( LispObject* int1, LispObject* int2, LispEnvironment& aEnvironment,int aPrecision)
{
  BigNumber *number = new BigNumber();
  int bits = InternalAsciiToInt(*int2->String());
  number->ShiftLeft(*int1->Number(aPrecision),bits);
  return new LispNumber(number);
}