Загрузка библиотек Lisp-файлов

На днях довольно случайным образом удалось решить проблему загрузки библиотек lisp.

В поисках программы для нумерации блоков забрел на форум caduser.ru и случайно натолкнулся на эту тему.
Особенно полезной для меня оказалась функция Getfile (спасибо Елпанову Евгению). Взяв ее за основу и дополнив функцией START

(defun START (file_name folder / file_list)
  (setq file_list (GetFile file_name folder))
  (if (foreach file file_list
        (load file (strcat "\nФайл " file " не найден"))
      ) ;_ end of foreach
    (princ (strcat "\nБиблиотека " folder " загружена"))
  ) ;_ end of if
) ;_ end of defun

получаем инструмент для загрузки всех лиспов из заданного каталога. Например так

(START "*.lsp" "Z:\\Настройки\\LISP\\Sourse")
Читать далее