File r37/lisp/csl/jlisp/LengthFn.java artifact 3b676f83e2 part of check-in 3c4d7b69af
class LengthFn extends BuiltinFunction { public LispObject op1(LispObject arg1) { int n = 0; while (!arg1.atom) { n++; arg1 = arg1.cdr; } return LispInteger.valueOf(n); } }