Start-Ausgabe entschlacken: per-Modul-Banner auf je eine Zeile kuerzen

Der SSG_LIB-Start gab ~50 Zeilen aus (mehrzeilige >>> ...geladen <<<-Banner mit
Befehlslisten/Block-Pfaden, ===-Trenner, Core-Modul-Auflistung, VarioFoerderer-
Typenliste). Fuer einen einfachen _QNEW-Start zu viel Rauschen.

Gekuerzt (nur die dicksten Bloecke, je Modul bleibt EINE knappe Zeile;
Fehler/Warnungen ALLE unveraendert erhalten):
- Kern-Module (ssg_core/dbg/dialog/layer/id): reine "X geladen"-Zeilen entfernt.
- Feature-Module: KreiselInsert/Gefaellestrecke/VarioFoerderer je auf eine
  ">>> X geladen"-Zeile; Befehlslisten, Modus-/Typen-Aufzaehlungen, Block-Pfade
  und ===-Trenner raus. VF-Submodule (vf_konstanten/standard/etage/linienzug/
  spec) Lade-Banner ganz entfernt (der Sammel-Header deckt sie ab).
- SSG_LIB_Commands "Dummy-Befehle registriert" entfernt.
- menu/SSG_LIB.mnl: ===-Trenner + Core-Auflistung raus; die doppelte
  "Einfuege-Modus 3D"-Zeile entfernt (S:STARTUP gibt sie ohnehin einmal aus).

Behalten (informativ / diagnostisch): [CFG] Config geladen: N Sektionen,
[LANG] N Texte geladen, alle FEHLER/WARNUNG-Zeilen, die Abschlusszeilen
"Alle Module geladen. Menue aktiv." + "Einfuege-Modus: 3D".

Reine Ausgabe-Reduktion, keine Logik geaendert. 243/243 LISP-Unit-Tests gruen;
alle Module laden fehlerfrei (Klammerbalance gegen HEAD unveraendert).

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

Lisp/vf_core.lsp

@@ -1095,7 +1095,7 @@
 ;; Guard: Untermodule nur beim ersten Laden von vf_core.lsp ausfuehren.
 (if (not *ssg-vf-submodule-loaded*)
   (progn
-    (princ "\n>>> VARIOFOERDERER v26.0 geladen <<<")
+    (princ "\n>>> VarioFoerderer geladen")
     ;; Lisp-Pfad zentral ueber ssg_core (ssg_core ist hier bereits geladen).
     (setq *vf-lisp-pfad* (ssg-lisp-verzeichnis))
     (if *vf-lisp-pfad*
@@ -1589,13 +1589,4 @@
 (setq *ssg-VarioFoerderer-loaded*      t)
 (setq *ssg-EtageVarioFoerderer-loaded* t)
 
-(princ "\n>>> Befehle: VarioFoerderer, Foerderanlage, EtageVarioFoerderer")
-(princ "\n    Typen:")
-(setq *vf-typ-idx* 1)
-(foreach eintr *vf-typ-registry*
-  (princ (strcat "\n    " (itoa *vf-typ-idx*) ".  " (car eintr) " - " (nth 3 eintr)))
-  (setq *vf-typ-idx* (1+ *vf-typ-idx*))
-)
-(if block-pfad (princ (strcat "\n    Block-Pfad: " block-pfad)))
-(princ "\n=========================================")
 (princ)