package language;
public class Fun_m_add implements PrimitiveFunction
{
    public ALisp lisp;
    public Fun_m_add(ALisp l)
    {
        lisp=l;
    }
    public LispObject fun(LispObject proc, LispObject argl)
    {
                MyNumber x=(MyNumber)(lisp.car(argl));
                MyNumber y;
                LispObject p=lisp.cdr(argl);
                while(!lisp.Null(p)){
                    
                    if(x==null){
                        lisp.printArea.append(
                        "type conversion error occured while adding.\n");
                        return null;
                    }
                    
                   y=(MyNumber)(lisp.car(p));
                   p=lisp.cdr(p);
                   x=x.add(y);
                }
                return x;
    }
}