Выбор блока по описанию

(defun ru-block-select-name-by-decriptions
                                           (caption     /
                                            lst_descr   lst_names
                                            lst         block_name
                                            block_descr NEW_LIST
                                            RESULT
                                           )
                                           ;|
(ru-block-select-name-by-decriptions "Выбери блок")

|;
  (if (setq lst (ru-block-list-all-names-and-decriptions))
    (progn
      (foreach x lst
        (setq lst_names (cons (car x) lst_names)
              lst_descr (cons (cadr x) lst_descr)
        ) ;_ end of setq
      ) ;_ end of foreach
      (if (setq result
                 (ru-dlg-double-list
                   caption "Имя блока" "Описание" lst_names lst_descr t) ;_ end of ru-dlg-double-list
 ;_ end of ru-dlg-double-list
          ) ;_ end of setq
        (setq result (car (car result)))
      ) ;_ end of if
    ) ;_ end of progn
  ) ;_ end of if
  result
) ;_ end of defun