Example #1
0
 public void eval(Environment aEnvironment, int aStackTop) throws Exception {
   ConsPointer first = new ConsPointer();
   UtilityFunctions.internalTail(first, argumentPointer(aEnvironment, aStackTop, 1));
   UtilityFunctions.internalTail(result(aEnvironment, aStackTop), first);
   ConsPointer head = new ConsPointer();
   head.setCons(aEnvironment.iListAtom.copy(false));
   head.getCons().rest().setCons(result(aEnvironment, aStackTop).getCons().subList().getCons());
   result(aEnvironment, aStackTop).getCons().subList().setCons(head.getCons());
 }