Вывод сообщений об ошибках ADO

(defun ru-ado-error-messages (ado_error_list ado_last_sql / list_names list_values)
;;; Вывод сообщения об ошибках,
;;; сгенерированного функцией  ru-ado-error-handler
  (if ado_last_sql
    (setq list_names  (cons "Последний SQL-запрос" list_names)
          list_values (cons ado_last_sql list_values)
    ) ;_ end of setq
  ) ;_ end of if
  (foreach error_list ado_error_list
    (foreach error_item error_list
      (setq list_names  (cons (car error_item) list_names)
            list_values (cons (cdr error_item) list_values)
      ) ;_ end of setq
    ) ;_ end of foreach
  ) ;_ end of foreach
  (ru-dlg-double-list
    "Информация о сбойной ситуации ADO"
    "Параметр"
    "Значение"
    (reverse list_names)
    (reverse list_values)
    t
  ) ;_ end of ru-dlg-double-list
) ;_ end of defun