Ｃでしょう。こんな感じで

int length(obj x)
{
int i = 0;

while (pair(x)) {
i++;
x = cdr(x);
}

return i;
}