[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/vf_core.lsp

@@ -1210,16 +1210,8 @@
 (if (not *ssg-vf-submodule-loaded*)
   (progn
     (princ "\n>>> VARIOFOERDERER v26.0 geladen <<<")
-    ;; Lisp-Pfad ermitteln: 1) DXFM_LISP, 2) *ssg-lisp-pfad* (vom MNL gesetzt)
-    (setq *vf-lisp-pfad*
-      (cond
-        ((getenv "DXFM_LISP")
-         (vl-string-translate "\\" "/" (getenv "DXFM_LISP")))
-        ((and (boundp '*ssg-lisp-pfad*) *ssg-lisp-pfad*)
-         *ssg-lisp-pfad*)
-        (t nil)
-      )
-    )
+    ;; Lisp-Pfad zentral ueber ssg_core (ssg_core ist hier bereits geladen).
+    (setq *vf-lisp-pfad* (ssg-lisp-verzeichnis))
     (if *vf-lisp-pfad*
       (progn
         (load (strcat *vf-lisp-pfad* "/vf_konstanten.lsp"))