[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_konstanten.lsp

@@ -28,15 +28,15 @@
 
 (if (not (car (atoms-family 1 '("VF-TYP-REGISTRIEREN"))))
   (progn
+    ;; Pfad zentral ueber ssg_core (ssg-lisp-verzeichnis), mit Inline-Fallback
+    ;; falls ssg_core hier noch nicht geladen ist.
     (setq *vf-konst-core-pfad*
-      (cond
-        ((getenv "DXFM_LISP")
-         (vl-string-translate "\\" "/" (getenv "DXFM_LISP")))
-        ((and (boundp '*ssg-lisp-pfad*) *ssg-lisp-pfad*)
-         *ssg-lisp-pfad*)
-        (t nil)
-      )
-    )
+      (if (car (atoms-family 1 '("SSG-LISP-VERZEICHNIS")))
+        (ssg-lisp-verzeichnis)
+        (cond
+          ((getenv "DXFM_LISP") (vl-string-translate "\\" "/" (getenv "DXFM_LISP")))
+          ((and (boundp '*ssg-lisp-pfad*) *ssg-lisp-pfad*) *ssg-lisp-pfad*)
+          (t nil))))
     (if *vf-konst-core-pfad*
       (load (strcat *vf-konst-core-pfad* "/vf_core.lsp"))
       (princ "\n[WARNUNG] vf_konstanten.lsp: DXFM_LISP/ssg-lisp-pfad nicht gesetzt.")