Хабр Курсы для всех
РЕКЛАМА
Практикум, Хекслет, SkyPro, авторские курсы — собрали всех и попросили скидки. Осталось выбрать!
(defun inlist (lst1 lst2 &OPTIONAL p)
(let ((cp 0) (vrlst lst1) (result nil))
(loop
(cond ((null vrlst) (return result)))
(when (equal (car vrlst) lst2)
(setq result (append result (list (append p (list cp))) ) )
)
(unless (atom (car vrlst))
(setq result (append result (inlist (car vrlst) lst2 (append p (list cp)))))
)
(setq vrlst (cdr vrlst))
(setq cp (1+ cp))
)
)
)
-------------------------------------------------------------------
Базовый принцип программирования управляемой формы в 1С