;; ============================================================
;; VarioFoerderer.lsp — Kompatiblitaets-Wrapper
;; Laedt vf_core.lsp (Plugin-Dispatcher-Architektur)
;; ============================================================
;; vf_core.lsp laden: 1) DXFM_LISP, 2) *ssg-lisp-pfad* (vom MNL gesetzt), 3) findfile
(setq *vf-core-datei*
  (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 "\n[VarioFoerderer] WARNUNG: vf_core.lsp nicht gefunden - Befehle nicht verfuegbar.")
)