Массовые операции с файлами

(defun ru-batch-file-operations
       (first_message files_list test_func quoted_func / do_it)
       ;|
Массовые операции над файлами
Пример:
(defun test_blocks ()
  ;; (test_blocks)
  (ru-batch-file-operations
    "Извлечение имен файлов и комментариев. Будем делать"
    (ru-file-list-full-names-in-dir (strcat (ru-dirs-get-all-users)
    "block-lib")
    "*.dwg")
    'ru-yes
    'ru-batch-block-save-all-names-and-decriptions
  ) ;_ end of ru-batch-file-operations
)
(ru-batch-file-operations
(strcat "Выполнение массовых операций над файлами" "
ПОЛЬЗОВАТЬСЯ ОСТОРОЖНО!

Будем делать")
(list
"c:\.ru\_ruInstall\cad\Shared\block-lib\ru-lib-bolt.dwg"
"c:\.ru\_ruInstall\cad\Shared\block-lib\ru-lib-build.dwg"
"c:\.ru\_ruInstall\cad\Shared\block-lib\ru-lib-car.dwg"
"c:\.ru\_ruInstall\cad\Shared\block-lib\ru-lib-column.dwg"
"c:\.ru\_ruInstall\cad\Shared\block-lib\ru-lib-common.dwg"
"c:\.ru\_ruInstall\cad\Shared\block-lib\ru-lib-computer.dwg"
"c:\.ru\_ruInstall\cad\Shared\block-lib\ru-lib-computer-2.dwg"
)
'ru-yes
'print
)
|;
  (if (not first_message)
    (setq do_it t)
    (setq do_it ((eval test_func) first_message))
  ) ;_ end of if
  (if do_it
    (mapcar quoted_func
            files_list
    ) ;_ end of mapcar
  ) ;_ end of if выход
  (princ)
) ;_ end of defun