fix: kf-auswahl-wert faengt fehlende Liste vor nth ab, veraltete TYP-Tests auf FOERDERERTYP umgestellt

Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com>
2026-10-26 11:27:13 +01:00
parent 399728c7f9
commit 35339b270a
2 changed files with 9 additions and 7 deletions
@@ -756,7 +756,9 @@
 ;; Wert eines Auswahleintrags ("wert", sonst "name", sonst Vorgabe).
 ;; Gemeinsam genutzt von Dialog und Konsolen-Rueckfall.
 (defun kf-auswahl-wert (liste idx vorgabe / e)
-  (setq e (nth idx liste))
+  ;; BricsCAD: (nth idx nil) ist ein harter Fehler (AutoCAD liefert nil) -
+  ;; fehlende Liste darum VOR dem nth abfangen
+  (setq e (if liste (nth idx liste)))
  (cond ((null e)                    vorgabe)
        ((ssg-json-get e "wert"))
        ((ssg-json-get e "name"))