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

Lisp/KreiselInsert.lsp

@@ -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

Lisp/VarioFoerderer.lsp

@@ -601,8 +601,8 @@
 
   ;; 5. Erster Vertikalbogen
   (if (= richtung "Auf")
-    (setq bogen-name (strcat "Vario_Bogen_auf_" (itoa best-winkel)))
-    (setq bogen-name (strcat "Vario_Bogen_ab_" (itoa best-winkel)))
+    (setq bogen-name (strcat "Vario_Bogen_auf_" (itoa best-winkel) grad-zeichen))
+    (setq bogen-name (strcat "Vario_Bogen_ab_" (itoa best-winkel) grad-zeichen))
   )
   (princ (strcat "\n\n5/11: " bogen-name))
   (setq aktueller-punkt (insert-block-by-ks bogen-name aktueller-punkt))
@@ -646,8 +646,8 @@
 
   ;; 7. Zweiter Vertikalbogen (gegenläufig)
   (if (= richtung "Auf")
-    (setq bogen-name (strcat "Vario_Bogen_ab_" (itoa best-winkel)))
-    (setq bogen-name (strcat "Vario_Bogen_auf_" (itoa best-winkel)))
+    (setq bogen-name (strcat "Vario_Bogen_ab_" (itoa best-winkel) grad-zeichen))
+    (setq bogen-name (strcat "Vario_Bogen_auf_" (itoa best-winkel) grad-zeichen))
   )
   (princ (strcat "\n\n7/11: " bogen-name))
   (setq aktueller-punkt (insert-block-by-ks bogen-name aktueller-punkt))

Lisp/ssg_dbg.lsp

@@ -229,7 +229,7 @@
       (dbg-flush)
     )
   )
-  (princ)
+  retval
 )
 
 ;; ------------------------------------------------------------