[REFACTOR] VF: Core-Pfad-Ermittlung zentralisiert (ssg-lisp-verzeichnis/-datei-pfad)

Der 3-stufige Lisp-Pfad-cond (DXFM_LISP -> *ssg-lisp-pfad* -> nil) war 6-fach
dupliziert. Neuer Helper ssg-lisp-verzeichnis/ssg-lisp-datei-pfad in ssg_core.lsp.

- vf_core.lsp (Submodul-Loader): nutzt Helper direkt (ssg_core hier geladen)
- vf_standard/vf_etage/vf_konstanten/VarioFoerderer: Helper mit Inline-Fallback
  (atoms-family-Guard), falls ssg_core beim isolierten Einzel-Laden fehlt
- vf_core.lsp ssg_core-Bootstrap (Z.40): bleibt inline (laedt ssg_core erst)

Reines Refactoring, identisches Verhalten. Paren-Balance geprueft.

Co-Authored-By: Claude Opus 4.8 (1M context) <noreply@anthropic.com>

Lisp/VarioFoerderer.lsp

@@ -2,17 +2,21 @@
 ;; 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
+;; 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*
-  (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 (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*