;; ============================================================
;; VarioFoerderer.lsp — Kompatiblitaets-Wrapper
;; Laedt vf_core.lsp (Plugin-Dispatcher-Architektur)
;; ============================================================
;; vf_core.lsp laden. Pfad zentral ueber ssg_core (ssg-lisp-datei-pfad), mit
;; Inline-Fallback (inkl. findfile) falls ssg_core hier noch nicht geladen ist.
(setq *vf-core-datei*
  (if (car (atoms-family 1 '("SSG-LISP-DATEI-PFAD")))
    (cond ((ssg-lisp-datei-pfad "vf_core.lsp"))
          ((findfile "vf_core.lsp")))
    (cond
      ((getenv "DXFM_LISP")
       (strcat (vl-string-translate "\\" "/" (getenv "DXFM_LISP")) "/vf_core.lsp"))
      ((and (boundp '*ssg-lisp-pfad*) *ssg-lisp-pfad*
            (findfile (strcat *ssg-lisp-pfad* "/vf_core.lsp")))
       (strcat *ssg-lisp-pfad* "/vf_core.lsp"))
      ((findfile "vf_core.lsp")
       (findfile "vf_core.lsp"))
      (t nil))
  )
)
(if *vf-core-datei*
  (load *vf-core-datei*)
  (princ (ssg-text "vfstart-core-nicht-gefunden"))
)