stubs6.red 155 B

12345678910111213141516
  1. % STUBS6.RED -Stubs introduced for TEST6 and up
  2. in "PT:mini-top-loop.red"$
  3. On syslisp;
  4. Procedure FUNCALL(FN,I);
  5. IDApply1(I,FN);
  6. off syslisp;
  7. END;