Загрузка ARX с проверкой

(defun ru-app-load-arx (arxname / fname)
  ;; Загружает arx с проверкой
  (setq fname (strcat arxname ".arx"))
  (if (member (strcat arxname ".arx") (arx))
    t
    (if	(findfile fname)
      (if
	(equal (arxload fname "Failed") "Failed")
	 (progn
	   (princ
	     (strcat
	       "
Программа 
"
	       fname
	       "
не может быть загружена! Возможно она испорчена!"
	     ) ;_ end of strcat
	   ) ;_ end of princ
	   nil
	 ) ;_ end of progn
	 t
      ) ;_ end of IF
      nil
    ) ;_ end of if
  ) ;_ end of if
) ;_ end of defun