once и *Once

once - выполняет prg один раз, когда текущий файл загружается в первый раз. Последующие загрузки в более позднее время не будут выполнять prg, и один раз вернет NIL. (once . prg) -> any (once (zero *Cnt1 *Cnt2) # Init counters (load "file1.l" ...