int f1() { Ptr<Foo> p; p = getf1(p); int r = p->i + p->j; delete p.get(); return r; }
void Fgetf(CL_FORM *base, int nargs) { switch(nargs) { case 2: LOAD_NIL(ARG(2)); case 3: break; default: Labort(TOO_MANY_ARGS); } getf1(ARG(0)); }