File r37/lisp/csl/jlisp/LengthFn.java artifact 3b676f83e2 part of check-in a57e59ec0d

class LengthFn extends BuiltinFunction
{
    public LispObject op1(LispObject arg1)
    {
        int n = 0;
        while (!arg1.atom)
        {   n++;
            arg1 = arg1.cdr;
        }
        return LispInteger.valueOf(n);
    }
}