for each t1, each t2 where t2.id = t1.id
and can-find(first t3 where t3.id = t1.t3-id) no-lock:
i = i + 1.
disp i with frame wait-frame.
.....
end.
прежде чем счётчик (i) начнёт изменяться проходит некоторое время... что происходит в этот момент?