[1]> ( load 'genetic-route.l )
;; Loading file genetic-route.l ...
;;  Loading file route.l ...
;;  Loaded file route.l
;; Loaded file genetic-route.l
T
[2]> ( setf r ( make-route ) )
#<ROUTE #x000334F537F0>
[3]> ( display-route r )
Style: JUG Orientation: RIGHT Position: (2 9)
Style: CRIMP Orientation: UP Position: (0 10)
Style: CRIMP Orientation: LEFT Position: (0 10)
Style: CRIMP Orientation: LEFT Position: (8 10)
NIL
[4]> ( setf r2 ( make-route ) )
#<ROUTE #x000334F1BF58>
[5]> ( display-route r2 )
Style: SLOPER Orientation: UP Position: (8 2)
Style: CRIMP Orientation: LEFT Position: (11 4)
Style: PINCH Orientation: RIGHT Position: (9 10)
Style: SLOPER Orientation: LEFT Position: (6 10)
Style: SLOPER Orientation: LEFT Position: (5 10)
NIL
[6]> ( display-route ( crossover r r2 ) )
Style: SLOPER Orientation: UP Position: (8 2)
Style: CRIMP Orientation: LEFT Position: (11 4)
Style: PINCH Orientation: RIGHT Position: (9 10)
Style: SLOPER Orientation: LEFT Position: (6 10)
Style: SLOPER Orientation: LEFT Position: (5 10)
NIL
[7]> ( display-route ( crossover r r2 ) )
Style: JUG Orientation: RIGHT Position: (2 9)
Style: CRIMP Orientation: LEFT Position: (11 4)
Style: PINCH Orientation: RIGHT Position: (9 10)
Style: SLOPER Orientation: LEFT Position: (6 10)
Style: SLOPER Orientation: LEFT Position: (5 10)
NIL
[8]> ( display-route ( crossover r r2 ) )
Style: SLOPER Orientation: UP Position: (8 2)
Style: CRIMP Orientation: LEFT Position: (11 4)
Style: PINCH Orientation: RIGHT Position: (9 10)
Style: SLOPER Orientation: LEFT Position: (6 10)
Style: SLOPER Orientation: LEFT Position: (5 10)
NIL
[9]>