Fix des Redefines im Lisp. Erzeugte lange schleifen. Jeder Block nur einmal laden

tests/testdata/mubea.json

@@ -42,7 +42,7 @@
     "function": "insert",
     "block": "S-LP",
     "x": 400,
-    "y": -4700,
+    "y": -3815,
     "z": 1467,
     "rotation": 90,
     "assigned_to": "Kreisel_links"
@@ -52,7 +52,7 @@
     "function": "insert",
     "block": "Scanner",
     "x": 400,
-    "y": -4823,
+    "y": -3925,
     "z": 1467,
     "rotation": 0,
     "assigned_to": "Kreisel_links"
@@ -94,7 +94,22 @@
     "x": 400,
     "y": 14120,
     "z": 1467,
-    "comment": "deltaL=9110 wie die Gefaellestrecken (GF_Mubea deltaL_mm) - deltaL ist die GESAMTLAENGE des VF (Vorlauf L_GF1 + Foerderer L_VF + Nachlauf L_GF2), analog foerderer_tests.json/object_data.md 3.1; winkel=21 wird erzwungen (naechster verfuegbarer Bogenwinkel); L_GF (gesamt) und L_VF werden von berechne-alle-winkel aus deltaL/deltaH/winkel geloest, L_GF1=500 (Vorlauf-Ziel) fix, L_GF2 = L_GF_gesamt - L_GF1 (Nachlauf, Rest)"
+    "comment": "oberer Förderer für die Leertrolleys"
+  },
+  {
+    "test_id": "VF_Schnitt_E",
+    "richtung": "Auf",
+    "deltaL": 9110,
+    "deltaH": 474,
+    "winkel": 21,
+    "gf_verteilung": "manuell",
+    "L_GF1": 2298,
+    "seite": "links",
+    "hz": 0.0,
+    "x": 400,
+    "y": -4133,
+    "z": 1467,
+    "comment": "unterer Förderer für die Teile"
   },
   {
     "comment": "Separator Förderer oben",
@@ -170,7 +185,7 @@
     "block": "S-LP",
     "x": 10310,
     "y": -500,
-    "z": 1467,
+    "z": 1941,
     "rotation": 90,
     "assigned_to": "Kreisel_rechts"
   },
@@ -180,7 +195,7 @@
     "block": "S-LP",
     "x": 10310,
     "y": 100,
-    "z": 1467,
+    "z": 1941,
     "rotation": 90,
     "assigned_to": "Kreisel_rechts"
   },
@@ -190,7 +205,7 @@
     "block": "S-LP",
     "x": 9510,
     "y": -4823,
-    "z": 1467,
+    "z": 1941,
     "rotation": 270,
     "assigned_to": "GF_Mubea_20"
   }