static int list_length(Object l) { int i = 0; for( ; l != BNIL ; l = ((pair) l).cdr, i++); return(i); }