debug beim Varioförderer dazu. dbgreturn routine gibt den Wert zurück. neues Test Konzept für unsere lisp Funktionen implementiert

2026-05-28 17:34:02 +02:00
parent 909f780bf0
commit 3aed8fe176
16 changed files with 415 additions and 3568 deletions
@@ -129,7 +129,6 @@
  (setq result (eval lastNrVar))
  (dbgp (strcat "Naechste Nummer: " (itoa result)))
  (dbgreturn result)
-  result
 )

 ;; Wrapper: Naechste Kreisel-Nummer
@@ -137,7 +136,6 @@
  (dbgf "kreisel-next-number")
  (setq result (component-next-number "KREISEL_*" '#Kreisel_LetzteNr))
  (dbgreturn result)
-  result
 )

 ;; Wrapper: Naechste Eckrad-Nummer
@@ -145,7 +143,6 @@
  (dbgf "eckrad-next-number")
  (setq result (component-next-number "ECKRAD_*" '#Eckrad_LetzteNr))
  (dbgreturn result)
-  result
 )

 ;; Beschriftungstext erzeugen