Загрузка ai_utils.lsp

(defun ru-app-load-ai (/ result)
  ;;загрузка утилит
  (setq result T)
  (if (not ai_table)
    (progn
      (cond
	((not (findfile "ai_utils.lsp"))
	 (ru-msg-info
	   (strcat "Не могу найти AI_UTILS.LSP."
		   "
 Проверь каталоги поддержки."
	   ) ;_ end of strcat
	 ) ;_ end of ru-msg-info
	 (setq result NIL)
	)
	((eq "failed" (load "ai_utils" "failed"))
	 (ru-msg-info
	   "Не могу загрузить AI_UTILS.LSP
Программа не сможет работать"
	 ) ;_ end of ru-msg-info
	 (setq result NIL)
	)
      ) ;_ end of cond
    ) ;_ end of progn
  ) ;_ end of if
  result
)