Компиляция LSP в FAS из каталога исходников в APP

(defun ru-app-vlisp-enabled ()
  (eq (type vlisp-make-project-fas) 'SUBR)
) ;_ end of defun

(defun ru-app-make-fas-file (name)
;;; Компиляция LSP в FAS из каталога исходников в APP
  (if (ru-app-vlisp-enabled)
    (if (not (vlisp-compile 'st (ru-file-lsp name) (ru-file-app name)))
      (progn
        (princ (strcat "
Не могу откомпилировать 
"
                       (ru-file-lsp name)
                       " в 
"
                       (ru-file-app "")
               ) ;_ end of strcat
        ) ;_ end of princ
        NIL
      ) ;_ end of progn
      t
    ) ;_ end of if
    nil
  ) ;_ end of if
) ;_ end of defun